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ABSTRACT 


In  this  investigation,  techniques  such  as  cross¬ 
correlation,  convolution  or  filtering,  and  spectral  density 
estimates  have  been  developed  in  conjunction  with  a  two- 
dimensional  fast  FOURIER  transform  algorithm  in  the  digital 
domain  to  allow  a  more  complete  examination  of  any  set  of 
potential  field  data.  In  addition  a  new  and  novel  method 
of  cross-correlation  has  been  formulated  and  has  been  applied 
to  determine  automatically  the  trends  on  any  geological  or 
geophysical  map.  This  is  accomplished  by  digital  computation 
and  introduces  a  minimum  amount  of  human  bias.  Thus  it  is 
possible  to  distinguish  and  weight  trends  due  to  various 
geological  processes  and  separate  them  by  a  two-dimensional 
filter.  The  physical  properties  of  the  rocks  may  then  be 
analysed  more  completely  from  the  residuals  of  the  potential 
field. 

In  another  part  of  this  investigation,  programs  to  carry 
out  the  upward  and  downward  continuation,  derivatives  and 
reduction  of  the  total  magnetic  field  to  the  pole,  have 
been  developed  using  two-dimensional  fast  FOURIER  transform 
algorithm.  The  techniques  have  been  applied  to  the  magnetic 
and  gravitational  field  data  to  determine  a  ^  ratio  for 
various  rock  units,  which  in  addition  provides  information 
on  the  direction  of  magnetization  of  the  source  body.  A 
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coherency  test  is  used  to  evaluate  the  validity  of  the 

determination  of  —  as  a  function  of  wave  numbers.  An 

P 

example  of  gravity  and  magnetic  data  from  Stony  Rapids, 
Northern  Saskatchewan  illustrates  the  techniques. 
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CHAPTER  I 


1 


INTRODUCTION 


Regional  studies  of  structural  and  tectonic  features 
have  been  in  progress  for  a  number  of  years.  Information 
on  large  scale  tectonic  trends  in  the  continental  areas 
may  be  derived  by  a  wide  variety  of  geological  methods  or 
by  comprehensive  geophysical  surveys  of  the  gravitational 
and  magnetic  fields.  Analytic  methods  for  determining  the 
nature  of  tectonic  and  structural  features  are  often 
limited  and  are  more  subject  to  human  bias  than  is  desira¬ 
ble.  An  attempt  is  made  in  this  thesis  to  develop  a  novel 
technique  for  trend  analysis  by  digital  computation  on  a 
two  dimensional  time  series  which  will  reduce  this  bias. 

The  analysis  makes  use  of  auto-correlation  and  cross¬ 
correlation  functions,  the  power  spectral  density,  convolu¬ 
tion  or  filtering  and  such  powerful  algorithms  as  the  fast 
Fourier  transforms.  It  is  possible  to  envisage  one  set  of 
structural  trends  developing  in  response  to  a  certain  field 
of  stress  during  one  geological  period  and  a  different 
trend  forming  at  some  later  stage  in  the  development  of  the 
crustal  section.  It  is  desirable  and  may  be  possible  to 
separate  such  independent  features,  on  the  basis  of  their 
physical  properties,  through  a  statistical  study  in  the 
spatial  domain. 

The  application  of  harmonic  analysis  rests  on  a  well 
developed  theoretical  foundation  and  has  been  applied  in  a 
number  of  interesting  cases.  Tsuboi  and  Fuchida  (1938) 
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have  used  such  techniques  in  the  interpretation  of  gravity 
anomalies  to  estimate  the  corresponding  subterranean  mass 
distribution.  Tsuboi  (1959)  represented  discretely  sampled 
gravity  field  data,  at  any  elevation  z,  by  a  double  Fourier 
series  expression: 


Ag(x,y,z)  = 


m 


0 


n 


0 


2ttz  / 


rrr +n' 


z  £ 

m=0  n=0 


B  e 
mn 


cos 


sin 


m 


O  cos  0 
2ttx  „  27ry 


n 


sin 


. (1.1) 

where  L  is  the  wavelength  in  the  x  and  y  directions. 

B  are  the  coefficients  in  the  Fourier  series 

mn 

expansion  and  may  be  used  to  determine  the 
amplitude  spectrum. 

m0,nQ  are  the  highest  harmonics  along  the  x  and  y 
axis  as  determined  by  the  digital  interval. 


Ag(x,y, 0)  is  the  Bouguer  anomaly  on  a  plane  surface  of  the 
earth  and  is  expressed  in  terms  of  a  Fourier  series  by 
equation  (1.1)  for  z  =  0.  One  can  project  the  field  above 
the  earth  for  z  taken  as  negative  and  downward  closer  to  the 
source  if  z  is  considered  positive  as  desired  in  the  upward 
and  downward  continuation  operations.  The  general  details 
of  harmonic  analysis  and  its  application  to  magnetic  fields 
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has  been  discussed  by  various  authors  (Chapman  and  Bartels 
19^0;  Vestine  and  Davids  19*15).  Bullard  and  Cooper  (19*18) 
employed  similar  analytic  methods  in  the  study  of  down¬ 
ward  continuation  of  gravitational  fields.  Swartz  (195*0 
has  used  harmonic  analysis  to  represent  the  gravity  and 
magnetic  data  in  the  wavelength  domain  and  prepared  residual 
maps  from  theoretical  contour  maps  by  a  two  dimensional  con¬ 
volution  using  somewhat  arbitrarily  calculated  coefficients. 
The  weighting  was  carried  out  on  various  grid  systems  or 
template  patterns  and  the  filter  operation  was  evaluated  by 
studying  the  attenuation  curves  which  show  the  amplitude 
for  various  sizes  and  shapes  of  original  anomalies. 

A  study  by  Alldredge  et  al  (1961,  63)  indicated  that 
terrestrial  magnetic  anomalies  are  caused  by  two  types  of 
sources;  for  wavelengths  shorter  than  300  km.  he  attributed 
the  field  to  sources  in  the  crustal  layers;  for  wavelengths 
longer  than  3000  km.  the  sources  are  apparently  at  the  core¬ 
mantle  boundary.  Their  power  density  study  indicated  that 
there  was  very  little  energy  for  intermediate  wavelengths. 
Other  aspects  relating  to  model  calculations,  spectral 
representation,  curie  point  geotherm  etc.  are  discussed  by 
Serson  and  Hannaford  (1957),  Dean  (1958),  Gladkii  (I960), 
Goldstein  (1962),  McClure  (1963),  Byerly  (1965),  Mesko 
(1965),  Odegard  and  Berg  (1965),  Hahn  (1965),  Bhattacharyya 
and  Morley  (1965),  Fuller  (1966),  Gudmundsson  (1966), 
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Spector  and  Bhattacharyya  (1966).  Bhattacharyya  (1966) 
has  investigated  the  two-dimensional  spectrum  analysis  of 
the  total  magnetic  field  anomaly  due  to  a  rectangular 
prismatic  body  with  an  arbitrary  direction  of  magnetization. 
From  this  study,  he  has  concluded  that  there  is  a  shift  of 
the  spectrum  towards  the  longer  wavelength  end,  with 
increase  in  either  depth  or  horizontal  dimension,  or  in 
both,  of  the  magnetized  body.  Thus  by  removing  the  short 
wavelengths  it  is  possible  to  study  the  effects  due  to  long 
wavelength  sources  only.  One  can  also  estimate  the  dimen¬ 
sions  of  the  body  by  noting  the  wavelengths  at  which  the 
amplitude  spectrum  becomes  negligible.  There  is,  as  always 
with  the  potential  methods,  an  ambiguity  in  the  interpreta¬ 
tion  and  the  peaks  and  widths  of  the  amplitude  spectrum  are 
also  indicative  of  the  strength  of  the  source,  depth  and 
vertical  extent  of  the  magnetized  body. 

Various  attempts  have  been  made  to  obtain  the  signifi¬ 
cant  trends  of  mapped  data.  Affleck  (1963)  carried  out 
statistical  study  on  selected  portions  of  magnetic  data  for 
trend  determination.  In  this  study  he  emperically  determined 
and  measured  the  length  of  each  positive  or  negative  magnetic 
anomaly  axis.  The  trend  was  defined  as  the  angle  measured 
clockwise  from  geodetic  north  to  these  axes.  He  grouped 
the  anomaly  trends  in  5-*degree  catagories  with  the  length 
of  all  trends  within  a  catagory  being  summed  and  the  results 
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were  presented  in  the  form  of  a  trend  rosette.  Affleck 
concluded  that  "the  dominant  trend  is  commonly  NW-SE  or 
NE-SW"  and  his  conclusions  are  mainly  valid  for  the  North 
American  Continent  as  most  of  the  data  available  was  from 
Canada  and  the  U.S.A.  However  his  method  for  trend  deter¬ 
mination  and  anomaly  spacing  was  somewhat  arbitrary  and 
subject  to  individual  bias.  Hall  (1964)  carried  out  a 
trend  analysis  on  Texada  Island,  B.C.,  Canada,  in  which  he 
tried  to  reduce  the  subjectivity  in  his  analysis  by  divid¬ 
ing  the  area  into  squares  of  one  mile  on  a  side  and  defining 

\ 

these  squares  as  the  "elements"  of  the  pattern.  It  was 
assumed  that  any  linear  feature  that  does  not  pass  out  of 
a  square  is  counted  as  one  element  and  any  feature  which 
passes  through  several  squares  is  counted  as  having  that 
number  of  elements.  He  measured  the  direction  of  each 
element  as  an  azimuth  clockwise  from  north  and  then  the 
number  of  elements  in  each  5-degree  of  azimuth  were  counted. 
The  results  were  presented  in  the  form  of  frequency  curves. 
Various  profiles  were  also  analyzed  by  means  of  a  one 
dimensional  auto-correlation  and  cross-correlation  function. 

Horton  et  al  (1964)  attempted  to  determine  trends  with 
a  two  dimensional  auto-correlation  function: 
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N-r  N-s 


(1.2) 


A (r , s  ) 


N  N 


1=1  j=l 


where 


r  ,s 


±m 


m 


maximum  lag  or  displacement 


X.  .  =  is  a  set  of  sample  data 

1  3  J 

N  =  Total  number  of  data  points. 


Unfortunately,  the  auto-correlation  function  tends  to 
provide  an  ambiguous  picture  about  the  trends  since  the 
properties  of  the  function  are  such  that  one  needs  to  make 
only  half  the  calculations.  The  other  half  may  be  obtained 
by  using  the  inherent  symmetric  properties  of  auto-correla- 
tion,  i.e. 


(1.3) 


A (r , s )  =  A(-r,-s) 


The  dominant  trends  obtained  in  their  analysis  are  apparent 
although  somewhat  accentuated.  However,  the  secondary 
trends  obtained  have  no  basis  because  they  have  been  derived 
by  joining  the  negative  or  positive  values  in  various  quad¬ 
rant  corners  and  these  are  merely  generated  by  the  symmetric 
properties  of  the  auto-correlation. 
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From  another  aspect  of  the  potential  field  study,  we 
know  that  the  gravity  and  magnetic  fields  are  related  by 
Poisson’s  equation: 


_  3  u 

G  p  &  v 


where 


(1.4) 


U  is  the  gravitational  potential  due  to  the  mass 
of  a  body  with  uniform  density  p. 

G  is  the  gravitational  constant. 

V  is  the  magnetic  potential  due  to  the  same  body 
polarized  uniformly  in  a  direction  v  with  an 
intensity  of  magnetization  J. 


By  differentiating  one  can  obtain  the  vertical  magnetic 
field  anomaly  ZT: 


=  J_  <L_  g  _  J_  g'  (v) 
T  Gp  3v  "  Gp 


(1.5) 


Where  g’ (v)  is  the  gravity  field  gradient  in  the  direction 
of  magnetization.  By  knowing  the  inclination  I  and  declin¬ 
ation  D  of  the  direction  of  magnetization,  one  can  express 
the  relation  as: 


ZT  =  jjp  {g’(z)  sin  I  +  g *  (H)  cos  1}  .  (1.6) 

where 

g’(z)  is  the  first  vertical  derivative  of  gravity, 
g’ (H)  is  the  first  horizontal  derivative  of  gravity 
along  the  declination  D. 


’ 


' 


. 


8 


We  notice  that  in  the  above  expression  one  needs  to  evaluate 
the  first  vertical  and  horizontal  gravity  derivatives. 

Special  cases  such  as  second  derivatives  have  been  dealt  by 
Swartz  (195^ )  and  Mesko  (1965)  using  Fourier  methods,  where¬ 
as  Bhattacharyya  (1965)  has  discussed  the  general  method  of 
obtaining  any  derivatives  by  using  Fourier  series  represen¬ 
tation.  According  to  his  method  one  can  evaluate  the 
vertical  derivatives  of  the  r^*1  order  simply  by  multiplying 
the  coefficients  Bmn  in  equation  (1.1)  with: 

{  ^  (m2+n2  }r  .  (1.7) 

From  the  historical  point  of  view,  Eotvos  used 
Poisson’s  equations  to  obtain  the  relations  between  the 
three  components  of  the  magnetic  field  with  the  values 
recorded  on  a  torsion  balance.  Garland  (1951)  applied 
Poisson’s  equation  to  known  gravity  and  magnetic  data  to 
obtain  the  ratio  J/p  for  an  area  in  Arkansas,  U.S.A.  The 
application  of  statistical  techniques  in  the  digital  domain 
will  be  explored  by  this  form  of  analysis  in  a  later  chapter. 

An  important  new  method  of  interpreting  the  magnetic 
anomalies  was  developed  by  Baranov  (1957),  using  Poisson's 
relations,  in  which  the  total  magnetic  field  is  transformed 
to  the  magnetic  pole.  Usually  a  distorted  picture  of  the 
magnetic  anomalies  is  obtained  because  the  rocks  are  magnet¬ 
ized  in  a  different  direction  than  the  present  earth’s 
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magnetic  field.  Moreover  in  the  case  of  aeromagnetic 
surveys  the  magnetometer  may  not  be  aligned  exactly  in  the 
direction  of  the  total  field.  Because  of  these  reasons, 
the  apex  of  the  magnetic  anomalies  is  displaced  from  the 
underlying  sources.  The  purpose  of  the  transformation  is 
to  reduce  this  distortion  and  to  obtain  the  magnetic  anomaly 
maps  which  would  result  if  the  whole  area  was  translated  to 
the  North  Magnetic  pole,  a  region  where  the  inducing  field 
was  vertical  (i.e.  the  magnetic  pole).  In  a  recent  paper, 
other  numerical  details  have  been  discussed  by  Baranov  and 
Naudy  (1964).  The  main  drawbacks  are  that  the  effects  of 
the  remanent  magnetization  have  not  been  taken  into  consi¬ 
deration  and  the  method  can  not  be  applied  for  small 
inclinations  of  magnetization.  Bhattacharyya  (1965)  has 
discussed  the  transformation  by  using  the  Fourier  series 
representation  and  has  taken  into  consideration  both  induced 
as  well  as  remanent  components  of  magnetization.  Moreover 
he  has  obtained  the  expressions  by  which  one  can  obtain  the 
magnetic  anomalies  for  any  inclination  of  magnetization  and 
at  any  magnetic  latitude.  Magnetic  anomalies  calculated  by 
Baranov’s  transformation  to  the  magnetic  pole  are  directly 
comparable  to  the  quantity  on  the  left  hand  side  of  equation 
(1.6),  making  it  possible  to  obtain  a  direct  correlation 
with  the  gravitational  derived  field. 
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CHAPTER  II 


TWO  DIMENSIONAL  CONVOLUTION  AND  SPECTRAL  ANALYSIS 

Introduction 

The  potential  field  data  f(x,y)  is  considered  as  a 
mixture  of  random  noise  and  aperiodic  signals  which  consti¬ 
tute  a  stationary  random  process.  The  contribution  by  the 
near  surface  geological  or  topographical  features  to  the 
potential  field  often  fluctuates  from  place  to  place  in  a 
random  manner.  The  effect  due  to  such  superimposed  poten¬ 
tials  may  be  considered  as  noise  for  our  purposes.  On  the 
other  hand  an  aperiodic  signal  implies  a  transient  waveform 
of  arbitrary  shape  which  may  be  represented  as  a  super¬ 
position  of  a  continuous  range  of  harmonics.  The  potential 
field  measurements  may  thus  consist  of  an  ensemble  of 
aperiodic  signals  produced  by  various  sources  in  the  spatial 
domain.  By  the  'stationary  random  process'  it  is  implied 
that  the  mean  and  the  covariance  of  the  noise  and  aperiodic 
signals  at  two  different  places  are  space  invariant  or  are 
unrelated . 

The  spectral  decomposition  of  the  potential  field  data 
f(x,y)  can  be  represented  by  the  following  complex  Fourier 
transform  relations  in  the  digital  domain. 


N-l  N-l 


2tt1  (k5x+k2y) 
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(2.1) 


x=0  y=0 


for  k  ,k  =  0,1,2 
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and  conversely 

-2iTi  (k  x+k  y) 

"NT  1  2 

P(k  ,k  )  e 
1  2 

.  (2.2) 

for  x ,  y  =  0,1,2, . ,(N-1) 

Where  F(k  ,k  )  are  N  complex-valued  vectors.  The  wave- 
1  2 

2  7T  2  TT 

lengths  X  and  X  are  given  by  -r—  and  —  where  k  and  k 

12  K  K  12 

1  2 

are  the  wave  numbers  along  x  and  y  directions. 

The  function  f(x,y)  may  be  expanded  in  terms  of  a 
double  trigonometric  series  in  the  interval  (0,N-1  ;  0,N-1) 
and  it  has  been  shown  in  various  texts  (e.g.  Lee  I960) 
that  the  expansion  tends  to  the  Fourier  integral  as  N  goes 
to  infinity.  The  main  difference  between  the  Fourier 
series  and  the  integral  transform  representation  is  that 
in  the  use  of  the  series  there  is  an  assumption  of  an 
infinite  series  of  identical  patterns  and  hence  a  fundamen¬ 
tal  wave  to  which  the  harmonics  are  related  whereas  in  the 
case  of  transforms  the  fundamental  component  has  been 
extended  to  cover  all  space. 

To  analyse  the  potential  field  data,  use  is  made  of  the 
fast  Fourier  transform  algorithm  which  has  been  developed 
by  Good  (1958)  and  modified  by  Cooley  and  Tukey  (1965), 
Gentleman  and  Sande  (1966).  Actually  this  method  of 
computation  was  suggested  first  by  Runge  (1903,  1905)  but  was 


N-l  N-l 

f(x,y)  =  ^  2  72 
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overlooked  by  all  except  a  few  research  workers  using 
Fourier  transforms  for  x-ray  analysis.  A  brief  discussion 
of  the  fast  Fourier  transform  (F.F.T.)  algorithm  along  with 
the  necessary  Fortran  IV  programs  is  given  in  Appendix  A. 


Power  density  spectrum 

Using  F.F.T.  programs  the  potential  field  data  may  be 
represented  in  the  wave  number  domain  for  power  spectral 
studies  (Appendix  A) .  The  power  density  function  yields 
information  on  the  amplitude  of  the  dominant  harmonics  of 
which  the  data  is  composed.  A  study  of  the  power  spectra 
was  carried  out  using  a  200  mile  long  aeromagnetic  profile 
from  Northern  Saskatchewan  (figure  2.1)  which  was  digiti¬ 
zed  at  a  h  mile  interval.  A  very  small  interval  was 
deliberately  chosen  to  evaluate  the  effect  of  aliasing.  The 
aeromagnetic  data  was  obtained  with  a  magnetometer  flown 
1000  feet  above  the  surface  on  lines  spaced  h  mile  apart. 

The  spectral  plot  is  illustrated  in  figure  (2.2  a).  A  pro¬ 
nounced  inflection  point  is  noticed  at  a  wavelength  of  5 
miles  with  a  power  density  4  x  104  y2  mile1.  It  is  con¬ 
cluded  that  the  maximum  power  is  concentrated  at  longer 
wavelengths,  whereas  at  shorter  wavelengths  there  are  quite 
a  few  spectral  highs  which  may  be  either  due  to  very  small 
scale  geological  features  or  noise  due  to  digital  errors. 


At  the  Nyquist  wavelength  X 


NYQ 

-  i 


=  0.5  mile,  the  power  density 


is  of  the  order  of  40  y2  mile-1  and  one  can  conclude  that 
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Figure  2.1 

Location  map  of  the  study  area 
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Figure  2.2  (a) 

Spectral  density  plot  of  a  long  magnetic  profile 
at  k  mile  digital  interval 
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Figure  2.2  (b) 

Spectral  density  plot  of  a  long  magnetic  profile 
at  h  mile  digital  interval 
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any  aliasing  or  folding  back  of  the  energy  is  negligibly 
small.  Figure  2.2(b)  illustrates  the  power  spectra  for  the 
decimated  data  at  k  mile  digitized  interval.  From  a 
comparison  of  figures  2.2(a)  and  2.2(b)  it  is  quite  clear 
that  power  density  at  the  Nyquist  wavelength  of  1  mile  is 
not  very  different,  and  in  general  there  is  a  relatively 
small  amount  of  energy  present  at  the  shorter  wavelengths. 
One  has  to  be  very  cautious  about  increasing  the  digitizing 
interval  as  the  aliasing  problem  could  be  very  severe. 

Some  of  the  conclusions  derived  from  figures  2.2(a)  and 
2.2(b)  are  listed  below. 

(1)  From  figure  2.2(a)  it  is  noticed  that  for  wavelengths 
shorter  than  0.8  mile  power  density  reflects  the 
random  noise  due  to  digitization  errors.  These  should 
be  filtered  out  before  any  further  analysis  or  inter¬ 
pretation  of  the  map  data  is  made. 

(2)  A  digitizing  interval  of  h  mile  will  introduce  negligi¬ 
ble  distortion  at  all  wavelengths  greater  than  1  mile. 

(3)  A  digitizing  interval  of  1  mile  will  be  adequate  if  we 

are  interested  in  structures  with  wavelengths  longer 
than  4  miles.  Since  the  energy  is  10  times  larger  at 
a  4  mile  wavelength  than  at  the  =  2  mile. 

(4)  A  digital  interval  as  large  as  2  miles  is  not  recommen¬ 
ded  since  the  power  density  at  the  Nyquist  wavelength 
of  4  miles  is  substantial  and  will  certainly  introduce 
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some  distortion  at  longer  wavelengths. 

From  this  study  it  was  concluded  that  a  h  mile  digitizing 
interval  was  a  reasonable  compromise  between  the  conflict¬ 
ing  limitations  imposed  by  aliasing,  size  of  the  core 
memory  and  the  type  of  structures  which  might  eventually  be 
studied.  A  smaller  digital  interval  may  be  desirable  since 
it  enables  us  to  study  small  anomalies  which  may  be  of 
economic  significance.  On  the  other  hand  one  is  faced  with 
computer  limitations  in  analysing  enormous  amounts  of  data 
and  a  very  difficult  and  tedious  digitization  problem. 

Digitization  of  two-dimensional  data 

For  computations  it  is  necessary  to  digitize  the  data 
from  the  maps  at  a  suitable  sampling  interval  Ax.  This  was 
carried  out  manually  by  superimposing  a  grid  on  the  field 
maps  and  reading  the  points  at  regular  interval  into  a  dicta¬ 
phone.  From  this  the  data  was  transferred  to  IBM  cards  and 
subsequently  to  tape.  To  keep  the  aliasing  errors  to  a 
minimum  it  is  best  to  choose  the  digitizing  interval.  Ax, 
sufficiently  small  and  subsequently  filter  the  data  to  remove 
the  wavelengths  outside  the  range  of  interest.  In  the 
present  study,  the  digitization  of  the  aeromagnetic  maps  in 
the  area  (figure  2.1)  with  a  sampling  interval  of  h  mile 
would  require  about  80000  data  points.  From  the  above  men¬ 
tioned  power  density  study,  it  seems  quite  adequate  to 
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digitize  the  maps  at  h  mile  sampling  intervals  and  reduce 
the  number  of  data  points  to  20000.  The  labour  of  handling 
the  data  and  the  computation  time  is  still  substantial  but 
since  our  intent,  for  the  present,  is  to  study  the  broad 
scale  structures,  this  will  be  reduced  after  suitable  smooth¬ 
ing  of  the  data  at  short  wavelengths.  A  portion  of  the  study 
area  is  also  covered  with  a  detailed  gravity  survey  conducted 
by  the  Gravity  Division  of  the  Dominion  Observatory  at  an 
interval  of  1  to  2  miles  using  helicopters.  The  writer 
participated  in  this  field  survey  and  made  a  collection  of 
samples  for  density  measurements.  The  gravity  map  was  digi¬ 
tized  at  one  mile  intervals.  Before  digitizing  the  gravity 
map,  the  contours  at  the  edges,  where  the  data  was  sparse, 
were  smoothed  by  hand. 

Convolution  and  Decimation 

The  effect  due  to  unwanted  short  or  long  wavelengths 
can  be  suppressed  by  applying  the  appropriate  filters  to  the 
digitized  data.  In  the  present  study  box  type  of  filters, 
with  symmetrical  and  zero  phase  shift  characteristics,  were 
applied.  The  filter  coefficients  for  low-cut,  high-cut  or 
bandpass  operators  were  solved  using  equations  that  are  well 
known  but  are  briefly  reviewed  in  Appendix  B.  To  increase 
the  reliability  of  the  boundary  data,  it  was  considered 
feasible  to  ’taper’  each  end  of  the  rows  and  columns  of  the 
matrix  by  means  of  a  cosine  bell 
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W(J)  =  h+h  cos  — 
where  J  =  1,2, . ,L 

and  L  =  one  half  of  the  number  of  coefficients  in 

the  filter  operator. 

It  was  noticed  that  the  boundary  data  did  improve  as  com¬ 
pared  to  the  results  without  tapering,  but  it  is  not  criti¬ 
cally  important. 

The  impulse  response  and  transfer  function  for  a  few  of 
the  two-dimensional  filters  used  in  this  study  are  illustra¬ 
ted  in  figures  2.3(a),  2.3(b),  2.4(a)  and  2.4(b).  For 
example,  figure  2.3(h)  shows  the  NE  quadrant  of  the  transfer 
function  due  to  a  low-cut  filter  with  cut-off  at  2  miles 
and  figure  2.4(b)  represents  the  function  due  to  a  low-cut 
filter  cut-off  at  4  miles.  Note  that  the  response  has  a 
square  pattern  over  the  matrix  and  there  is  a  strong  attenua¬ 
tion  along  the  NE-SW  and  NW-SE  directions,  as  compared  to 
the  east  or  north  directions.  These  properties  arise  from 
the  technique  used  in  implementing  the  convolution  which  con¬ 
sists  of  filtering  along  the  rows  and  then  a  similar  operation 
along  the  columns.  The  small  amount  of  oscillations  termed 
Gibb’s  phenomena  is  due  to  the  truncation  of  the  box  car 
function  at  25  terms.  A  filter  with  greater  symmetry 
would  be  easy  to  design  in  the  wavelength  domain  but  for  the 
present  study  these  relatively  simple  filters  were  considered 
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adequate.  The  convolution  of  two-dimensional  data  with  the 
filter  operators  and  the  decimation  of  the  filtered  data 
follow  the  steps  in  the  block  diagram  shown  in  figure  2.5* 
Figures  2.6  and  2.7  show  the  original  magnetic  and  gravity 
maps  with  D.C.  removed  and  figures  2.8  and  2.9  illustrate 
the  respective  filtered  maps  with  attenuation  of  wave¬ 
lengths  shorter  than  4  miles.  Other  filtered  maps  are 
attached  in  Appendix  B.  In  this  study  the  digital  interval 
was  reduced  to  1  mile  to  have  a  grid  of  69  by  69  matrix  for 
the  magnetic  map  or  to  a  2  mile  interval  in  which  case  the 
digitized  data  is  reduced  to  a  35  by  35  matrix. 

Upward  and  Downward  Continuation 

Smoothing  or  convolution  is  also  produced  by  means  of 
upward  and  downward  continuation,  first,  second  and  higher 
derivatives  which  suppress  some  of  the  characteristics  of 
the  data  and  reveal  others  which  are  not  too  apparent  in  the 
original  data.  In  accordance  with  equation  (1.1)  the  contin¬ 
uation  of  the  potential  field  data  is  easily  performed  by 
using  the  fast  Fourier  transforms.  Once  the  complex  Fourier 
coefficients  are  obtained,  it  is  possible  to  perform  upward 
or  downward  continuation  of  the  field,  at  any  height  or 
depth  by  substituting  the  desired  value  of  Z  and  taking  the 
inverse  fast  Fourier  transform  to  return  to  the  spatial 
domain.  It  is  noted  that  the  continuation  process  is  valid 
only  in  the  space  without  sources,  if  this  condition  is 
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IMPULSE  RESPONSE  LOW  CUT  FILTER  (  2mil«i )  AX-0.25MILE 


Figure  2.3  (a) 


Impulse  response  of  a  two-dimensional  low-cut  filter 
(which  cuts-off  wavelengths  shorter  than  2  miles) 


Figure  2.3  (b) 

NE  quadrant  of  a  transfer  function  for  the  case  of 
figure  2.3  (a) 
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IMPULSE  RESPONSE  LOW  CUT  FILTER  (  4mil«s)  AX  =  0.5MILE 


Figure  2.4  (a) 

Impulse  response  of  a  two-dimensional  low-cut  filter 
(which  cuts-off  wavelengths  shorter  than  4  miles) 


WAVELENGTH  —  IN  MILES 


Figure  2.4  (b) 

NE  quadrant  of  a  transfer  function  for  the  case  of 
figure  2.4  (a) 
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Figure  2.5*  Block  diagram  for  convolution  of 

the  filter  operators  with  the  two- 
dimensional  data  set. 
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Figure  2 . 6 

Original  magnetic  map  with  D.C.  removed 
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Figure  2.7 


Original  gravity  map 
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Figure  2 . 8 

Filtered  magnetic  map  with  attenuation  of  wavelengths 
shorter  than  4  miles.  (trends  are  also  shown  as 
obtained  by  using  a  test  map  of  6  by  6  miles,  see 
Chapter  III.) 
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Figure  2 . 9 

Filtered  gravity  map  with  attenuation  of  wavelengths 
shorter  than  4  miles.  (trends  are  also  shown  as 
obtained  by  using  a  test  map  of  12  by  12  miles,  see 
Chapter  III) 
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violated  the  field  map  will  show  violent  oscillations  and 
a  general  instability.  From  equation  (1.1)  it  is  seen  that 
the  continuation  process  is  effected  by  the  multiplying 
factor  exp{— jr-^-(m2+n2  )  2>  with  the  complex  Fourier  coefficients 
in  the  wave  number  domain.  In  this  factor,  it  is  also  clear 
that  the  short  wavelengths  are  much  more  affected  by  upward 
or  downward  continuation  than  the  long  wavelengths.  There¬ 
fore  upward  continuation  tend  to  suppress  the  shorter 
wavelengths  and  act  as  a  lowpass  filter. 

In  the  present  study,  continuation  has  been  achieved  by 
arranging  the  data  into  a  matrix  with  even  symmetry  as  this 
simplifies  the  calculations  and  provides  the  results  in  a 
compact  form.  The  method  of  calculation  is  substantially 
different  from  that  used  by  Tsuboi  (1959).  In  performing  the 
operations,  care  must  be  taken  to  arrange  the  data  in  a 
properly  symmetric  fashion  in  a  two  dimensional  matrix  to  be 
able  to  make  use  of  the  F.F.T.  programs.  Tsuboi  (1959) 
gave  an  example  of  a  surface  gravity  map  (figure  2.10  a) 
and  its  upward  continuation  at  a  level  of  15.9  km.  (figure 
2.10  b).  The  results  obtained  through  the  F.F.T.  programs 
are  in  excellent  agreement  (figure  2.10  c). 

Derivatives 

It  is  also  possible  to  obtain  the  order  vertical 

derivative  simply  by  multiplying  the  factor  {^(m2+n2)^}N 


•  V  ■ 
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with  the  complex  Fourier  coefficients  in  the  wave  number 
domain  and  then  taking  the  inverse  Fourier  transforms  of  the 
subsequent  coefficients.  Figure  2.10(d)  shows  the  first 
vertical  derivative  map  as  obtained  using  the  F.F.T. 
programs.  Further  details  and  various  Fortran  IV  programs 
pertaining  to  these  techniques  are  listed  in  Appendix  C. 

Summary 

From  a  power  spectral  study  of  a  long  magnetic  profile 
the  sampling  interval  was  established  for  digitizing  aero- 
magnetic  maps  in  the  Shield  area  of  Saskatchewan.  The 
digitized  magnetic  data  covers  an  area  of  5000  square  miles 
and  consists  of  20000  points  on  a  grid  of  h  mile  spacing. 

A  part  of  this  area  is  also  digitized  at  a  h  mile  interval 
to  study  the  effects  introduced  by  this  fine  grid.  The 
effect  of  aliasing  errors  on  structures  of  various  wave¬ 
lengths  was  considered.  Since  the  intent  in  the  study  is 
broad  scale  regional  structures,  the  data  was  convolved 
with  coefficients  of  a  low-cut  operator  to  remove  wave¬ 
lengths  shorter  than  4  miles.  The  region  in  which  there  is 
a  common  gravity  and  magnetic  coverage  is  an  area  of  about 
2500  square  miles  with  a  digitizing  interval  of  2  miles 
after  decimation,  the  data  consisting  of  a  matrix  of  26  x  26 
points.  Various  filtered  maps  were  illustrated  and  it  was 
shown  that  the  fast  Fourier  program  may  be  used  to  obtain 
upward  and  downward  continuation  and  derivative  maps  in  an 


efficient  manner. 
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Figure  2.10 


Ca) 

Cb) 

Cc) 

Cd) 


Surface  gravity  map  (after  Tsuboi  1959) 

Upward  continuation  of  (a)  at  a  level  of  15-9  Km. 
above  the  surface  (after  Tsuboi  1959) 


Upward  continuation  of  (a)  at  a  level  of  15-9  Km. 
above  the  surface  obtained  by  using  fast  FOURIER 
transform  programs 


First  vertical  derivative  map  of 
using  F.F.T.  programs 


(c)  obtained  by 
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AUTOMATIC  TREND  ANALYSIS 


Basic  Theory 

The  object  of  the  study  is  to  investigate  the 
possibilities  of  trend  analysis  by  means  of  statistical 
techniques.  During  this  investigation,  a  new  and  some¬ 
what  novel  method  of  cross-correlation  has  been  developed 
from  which  the  trend  directions  can  be  obtained  with  some 

reliability.  The  cross-correlation  coefficients  C  are 

r ,  s 

given  by: 


C 

r,s 


E 

j=o 


N-s-l 


E 

£  =  0 


Xj.*-  Yj+r,Jl+s 


(3.1) 


Where  X^,  Yj  _  t 

N 


are  two  sets  of  sample  data. 

is  the  total  number  of  data  points  in 
each  sample  set. 


r,s  =  0,±1,±2, . ,±m 


m  =  maximum  lag  or  displacement. 


Normally,  the  cross-correlation  is  obtained  on  two 
different  sets  of  sample  data.  However  in  this  section 


' 
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the  same  matrix  of  values  will  be  used  for  both  functions 
but  one  of  them  will  be  modified  by  surrounding  the  central 
core  with  a  null  field.  Let  X.  .  be  the  digitized  values 

J  3^ 

for  any  two  dimensional  function  and  Y.  0  is  chosen  in 
such  a  way  that 


L,*  =  L,*  for 


=  0 


j  I  3  A  <  n  ' 


otherwise 


(n^<  n) 


(3.2) 


Where  the  positive  integers  n'  and  n  are  defined  as  shown 
in  figure  (3-1)  with  origin  (0,0)  at  the  centre  of  the 
matrix . 

2 

The  sample  map  is  defined  as  the  N  complete  set  of 

2 

values  X.  .  while  the  test  map  is  defined  as  the  NTT  non- 
j  ,  Jl  ^  H 

zero  values  of  the  central  core  of  Y.  0 .  This  convention 
of  sample  map  and  test  map  (figure  3.2)  will  be  used  through¬ 
out  this  chapter.  The  values  on  the  test  map  are  identical 

to  the  central  core  of  data  placed  in  X,  .  However,  the 

J 

important  concept  of  introducing  zero's  all  around  Y.  0 
makes  it  possible  to  obtain  the  correlation  coefficients 
for  the  same  sample  set  without  the  limitations  imposed  by 
the  symmetry  properties  of  an  auto-correlation  function. 

For  the  purposes  of  trend  analysis  the  cross-correlation 
will  be  defined  in  the  following  manner: 


' 
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N=2n+1— - — > 


Figure  3.1.  Conventions  for  choosing  y.  .  from  X. 

J  }  ^  3  3  ^ 

as  defined  in  equation  (3-2) 


Sample  map  Test  map 

Figure  3.2  Schematic  diagram  for  the  sample  sets  Xj  ^  and 

y.  0  used  for  the  new  correlation  technique. 

#1  *  ^ 


. 


3 4 


C 


y 

r 


s 


N-r-l  N-s-1 

y  yy 

j+r,£+s 

j  =0  £=0 


N-r-l  N-s-1 

n  Yn 

j+r,£+s 

j  =  0  Z=0 


(3.3) 


The  sample  map  is  a  small  subset  y  of  a  larger  map 

from  which  trends  are  to  be  determined.  The  normalization 

is  with  respect  to  C1^  ,  the  particular  subset  of  y  =  ri, 

r  j  s 

which  yields  the  largest  correlation  coefficient  as  defined 
by  equation  (3.4).  This  normalization  procedure  may  appear 
somewhat  arbitrary  but  it  insures  that  no  correlation  is 
greater  than  1  over  the  entire  map  and  the  strongest 
trends  appear  with  the  highest  coefficients. 

Prom  figure  (3*6  c)  it  is  seen  that  when  the  data  sets 
have  a  high  correlation,  a  large  coefficient  is  obtained. 

The  decrease  or  increase  in  the  coefficient  value  is  also 
indicative  of  trend  direction.  A  similar  pattern  which 
propagates  along  any  direction  will  yield  a  high  positive 
correlation  coefficient;  negative  correlations  are  possible 
and  indicate  where  areas  of  positive  curvature  correlate 
with  negative  ones.  From  these  coefficients,  it  is  possible 
to  track  the  primary  or  secondary  trends.  In  the  present 
study  automatic  digital  determination  was  restricted  to  the 
primary  trends . 
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Size  of  sample  data  sets  for  cross-correlation 

If  the  large  scale  features  are  of  interest  the  two- 

dimensional  data  is  convolved  with  the  filter  operators  to 

remove  features  of  short  wavelengths.  After  filtering, 

the  data  is  decimated  in  order  to  reduce  the  number  of 

coefficients  to  be  calculated.  The  test  map  is  an  by 

N„  size  matrix  in  the  centre  of  Y.  „  and  it  together  with 
n  J  )  ^ 

the  desired  number  of  lags  determines  the  size  of  the 
sample  map.  As  an  example,  a  6  by  6  mile  test  map  at  a  one 
mile  digital  interval  may  be  cross-correlated  with  an 
18  by  18  mile  sample  map  for  lags  0 , ±1 , ±2 , . . . . , ±6  which  will 
produce  a  12  by  12  mile  cross-correlation  map.  To  obtain 
a  sampling  of  cross-correlations  at  representative  sites 
over  a  whole  map,  a  new  test  map  is  chosen  at  equal  dis¬ 
placement  and  the  cross-correlation  calculations  are 
repeated  over  the  entire  field.  The  flow  diagram  in 
Appendix  D  outlines  the  procedure  to  obtain  the  sample  and 
test  map  matrices. 

Two-dimensional  cross-correlation 

Consider  the  covariance  from  equation  (3*1)  which 
can  be  written  as 


N-r-1  N-s-1 


Cov 


j  =  0  £  =  0 


(3.4) 


* 


. 

/ 


' 


36 


The  direct  evaluation  of  the  coefficients  using  the 
above  equation  requires  a  large  amount  of  computer  time. 

By  Wiener's  theorem  one  can  evaluate  equation  (3.4)  by 
using  the  Fourier  transform  technique  but  this  is  also 
very  slow  unless  a  fast  Fourier  transform  algorithm  is  used. 
The  F.F.T.  algorithm  reduces  the  computing  time  and  provides 
better  accuracy  than  the  standard  Fourier  transforms.  This 
requires  special  care  in  preparing  the  input  to  the  F.F.T. 
algorithm.  Previously  the  one-dimensional  case  has  been 
considered  by  Gentleman  and  Sande  (1966)  and  the  method  has 
been  extended  here  to  the  two  dimensional  case.  It  is 
thought  appropriate  to  present  this  approach  in  the  follow¬ 
ing  section. 

It  is  well-known  that  the  Fourier  transforms  are  cyclic 
in  character  and  the  correlation  operations  are  non-cyclic. 
The  difference  may  be  explained  by  considering  the  two- 
dimensional  matrix  of  3  by  3  (figure  3-3  a).  According  to 
the  cyclic  property  of  the  Fourier  transforms  this  matrix 
is  the  same  in  all  space  and  repeats  itself  as  shown  in 
(figure  3*3  b).  In  the  correlation  operations,  a  field  of 
zero's  is  assumed  to  exist  all  around  the  data.  This  dis¬ 
crepancy  between  the  cyclic  character  of  the  Fourier 
transforms  and  the  non-cyclic  operations  of  the  correlation 
techniques  can  be  removed  by  adding  zero's  to  the  actual 
physical  data  in  such  a  manner  that  both  the  conditions  are 
satisfied  (figure  3.3  c). 
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Figure  3.3  (a)  Original  matrix  data  set. 

(b)  Presentation  of  the  data  in  (a)  for 

a  cyclic  operation  such  as  in  FOURIER 
transforms . 


(c)  Superposition  of  a  box  car  function 

around  the  data  in  (a)  for  a  non-cyclic 
operation . 
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Mathematically,  if  we  extend  the  summation  in  equation 
(3.4)  to  (N^-l)  with  the  assumption  that 


X  =  0,  Y.  =  0  for  either  j  =  N,N+1, . ,N"-1 

J  5  ^  J  )  ^ 


or  £  =  N,  N+l , . ,r-l 


(3-5) 


and 


N'-l  =  N-1+  r  =  2N-1 

1  1  max 


N'-l  =  N-1  + I s I  =  2N-1 

1  1  max 


(3.6) 


then  from  equation  (3.4)  we  have 


Cov 


r  5  s 


N-r-1  N-s-1 

E  E 

j  =  0  £  =  0 


Xj,£  Yj  +r , £+s 


N-r-1  N'-l  N'-l 


E  E  EX  3,1  YJ+r,p  V^P-^+s» 

j  =  0  £=0  p  =  0 


or 


N'-l  N"-l  N"-l  N'-l 


Cov 


E  EE  Ex  j,*  YP,q  x 


j  =  0  £  =  0  p  =  0  q  =  0 


<$N-[q-(j+r)] 


(3.7) 
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Where  6^  ^  [p- ( il+s  )  ]  and  <5^>  [q- (j  +s  )  ]  are  Kropecker 
delta  functions  with  their  argument  being  considered  as 
modulo  N"  that  is 

6at^(KI\T)  =  1  for  K  being  integer 

N  . (3.8) 

=  0  otherwise 


Using  the  orthogonality  property  of  the  Fourier  trans¬ 
forms  (Gentleman  and  Sande  1966)  which  states  that 

N^-l  2 frit  ( t-t  "  ) 

^2  e  N  =  N'Jr(t-t')  . 

t  =  0 


equation  (3*7)  can  be  written  as: 


Cov  =  i  E  E 

r’S  N'N'  j,£  p , q 

X.  0  Y  x 

J  p ,q 

N"-l 

N"-l  2Triki  (q-j -r 

)  2Trik2  (p-A-s ) 

£ 

E  • 

IT 

e 

o 

II 

k  =0 

2 

N"-l 

-2Triki  j 

-27Tik2  i 

-  1  r  ^ 

L  j.*  e 

N'  ' 

x 

N'2 

ki s  k2  =  0  j 

+2Trik  i  q  +27rik2p 

-27Tik  i  r 

-27rik2 

f  y  Y 

D 

3 

D 

3 

_ 1 

NT 

pi  P 

N" 

Z-J  p,q 

p5q 
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or 

N'-l  N'-l  0  0  .. 

-27Tikir  -27rik2s 

p  i  v  0*  n^-  ^ 

Cov  =  -  /  >  X.  .  Y.  ,  e  e 

r,s  w>2  l—J  k  ,k  k  ,k 

JN  12  12 

k  =0  k  =0 
1  2 

. (3.10) 

Where 

N'-X  N'-X  -2Trik1  j  -2wikal 

J  T  V  X.  ,  e  e  “ir_ 

Xk  ,k  *-i  C-j 

1  2  J =0  1=0 

A  /\ 

ak  ,k  +  1  bk  ak  (3.11) 

12  12 

and 

N'-l  N"-l  0-14  o  „ 

-2lTlkiJ  —  2  7T1  k  2  & 

K.,-Z  £  >,.»  •  "  . 

1  2 

j  =  0  £=0 

A 

A 

ckx  ,k2  +  i  dk  (3.12) 

1  2 

A 

Cross-power  Pk  k  ls  deflned  as; 

1  2 


A 


k 

2 


+  1  £k 


k 

2 


/N 

1  dk 


2 


(3.13) 
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Using  equation  (3.13)  we  can  write  equation  (3.10)  as: 

N"-l  N"-l 

X  X 


Cov 


1 


r ,  s 


-27rik!r  -27rik2S 

;  W  iT 

P,,  ,  e  e 

N'2  ■c-/  *—•  Vk2 

k  =0  k  =0 
1  2 


(3.14) 


Where  r,s  =  0 , ±1 , ±2 ,...., ±m  and  N"  >  N+m 
Usually,  in  using  the  F.F.T.  we  have  taken  the  maximum 
lag  m  equal  to  N.  Thus  it  is  possible  to  obtain  the  cross¬ 
correlation  coefficients  by  using  equation  (3.14)  with 
the  P.P.T.  algorithm,  in  a  simple  manner. 

From  equation  (3.5)  it  is  to  be  noted  that  the  actual 
data  sets  of  size  N  by  N  must  be  stored  under  the  dimensions 
by  where  N''  >  2N  for  N  desired  lags.  In  other  words, 
the  data  is  read  in  from  row  1  to  N  and  columns  from  1  to  N 
and  the  rows  from  (N+l)  to  1ST  and  columns  from  (N+l)  to 
are  filled  with  a  field  of  zero’s  as  shown  in  figure  3.4. 

The  procedure  to  obtain  the  normalized  coefficients 
is  shown  in  the  block  diagram  (figure  3.5)a  and  the 
Fortran  IV  program  to  obtain  the  coefficients  is  listed  in 
Appendix  D. 
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Figure  3.4.  Setting  up  the  original  data  in  figure 

3.3  (a)  for  calculating  the  cross¬ 
correlation  coefficients  using  F.F.T. 
programs . 
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Figure  3-5.  Block  diagram  for  cross-correlation  coefficients. 
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Trend  Analysis 


The  cross-correlation  coefficients,  in  general,  vary 
systematically  between  +1  and  -1.  The  spatial  variation  of 
the  coefficients  provides  a  method  of  tracing  the  trends 
due  to  various  geological  factors.  In  the  study  area,  where 
the  magnetic  or  gravity  features  have  high  cross-correla¬ 
tion,  the  coefficients  obtained  are  close  to  +1  otherwise 
the  coefficients  are  low.  An  empirical  method  has  been 
devised  so  that  the  trends  can  be  traced  in  an  unbiased 
manner  by  using  the  cross-correlation  coefficients. 

Method  of  Analysis 

The  location  of  the  maximum  coefficient  is  chosen  for 
the  starting  point.  Then  the  second  maximum  coefficient  is 
selected  from  the  8  nearest  points  surrounding  the  location 
of  the  maximum  coefficient.  After  obtaining  the  two  adjacent 
maxima  points,  a  straight  line  fit  is  made  through  these 
points.  A  normal  drawn  to  the  line  and  passing  through  the 
second  maxima  point  is  obtained  and  a  scan  is  made  of  the 
next  maximum  coefficient  in  a  semi-circle  along  the  forward 
direction.  To  find  the  fourth  point,  a  least  squares 
straight  line  fit  is  made  through  the  three  points  selected 
previously  with  weighting  factors  proportional  to  the  correla¬ 
tion  coefficients.  A  normal  to  this  line  is  drawn  to  pass 
through  the  third  maxima  and  a  search  for  the  fourth  one  is 
continued  in  a  semi-circle  along  the  forward  direction.  The 
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expressions  for  the  least  squares  straight  line  fit  and  the 
normal  to  be  drawn  are  given  in  Appendix  E. 

The  program  avoids  arbitrarily  sharp  changes  in  the 
trend  direction  by  using  a  maximum  of  seven  previously 
determined  trend  positions,  if  these  are  available,  to  deter¬ 
mine  the  direction  of  the  straight  line  for  the  eighth  and 
subsequent  trend  points.  The  procedure  of  determining  a  new 
straight  line  fit  and  drawing  the  normal  to  scan  in  a  semi¬ 
circle  in  a  particular  direction  continues  until  the  boundary 
is  reached.  At  this  point,  the  control  is  transferred  to 
the  first  maximum  point  for  scanning  in  the  opposite  direc¬ 
tion.  The  process  to  be  followed  is  indicated  in  figure 
(3*6  a  and  b).  At  the  end  of  scanning  a  least  squares 
third  degree  polynomial  equation  is  fitted  to  the  selected 
sites,  with  weights  given  by  the  correlation  coefficients, 
to  obtain  a  smooth  trend  line  (figure  3.6  c).  The  expres¬ 
sion  for  the  third  degree  polynomial  least  squares  fit  is 
given  in  Appendix  E.  The  scheme  to  be  followed  in  tracing 
the  trends  is  shown  in  the  block  diagram  (figure  3«7). 

In  Appendix  F  the  flow  chart  for  trend  analysis  indicates 
some  of  the  logical  decisions  to  be  made  by  the  computer  in 
selecting  the  maximum  coefficients  and  in  determining  the 
third  degree  polynomial  equation  for  the  trend  line.  The 
working  Fortran  IV  programs  IBM  67/360,  for  trend  analysis 
are  attached  in  Appendix  F. 
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Smooth  trend 


Figure  3 . 6 

(a)  &  Cb)  Scanning  procedure  to  find  the  maxima 
coefficients  for  trend  points 

(c)  Showing  the  smooth  trend  using  third  degree 

polynomial  fit  to  the  selected  points  (as  obtained 
in  figure  3  •  6(a)  and  (b).) 
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Examples  from  the  field  data 

The  method  of  trend  analysis  from  the  cross-correla¬ 
tion  coefficients  was  applied  to  different  sets  of  two- 
dimensional  potential  field  data.  In  the  first  case  the 
data  was  a  matrix  of  69  by  69  points  obtained  by  digitizing 
the  aeromagnetic  map  discussed  in  Chapter  2.  The  digitizing 
interval  was  h  mile  and  the  data  was  filtered  and  decimated 
to  obtain  a  digital  interval  of  one  mile.  Convolution  was 
with  a  filter  which  cuts  off  all  wavelengths  shorter  than 
4  miles.  A  test  map  of  6  by  6  miles  was  selected  for  cross¬ 
correlation  with  the  18  by  18  miles  sample  map  which  provided 
the  cross-correlation  coefficients  over  12  by  12  miles. 

For  the  entire  matrix  of  data,  sixty  four  correlation  maps 
of  the  type  illustrated  in  figure  (3.6  c)  were  obtained  on  a 
Calcomp  plotter.  The  method  of  trend  analysis,  as  outlined 
above,  was  applied  to  each  correlation  set  and  the  results 
were  transformed  to  the  original  filtered  map  shown  in 
figure  (2.8),  in  which  the  primary  and  intermediate  trends 
in  the  area  are  displayed.  The  6  by  6  miles  test  map  is  too 
small  to  show  discrimination  between  the  larger  trends  and 
the  secondary  ones  since  the  large  scale  features  have  dimen¬ 
sions  much  greater  than  6  miles.  To  analyse  the  large  scale 
primary  trends,  it  is  necessary  either  to  take  a  larger  test 
map  or  to  decimate  the  filtered  data  to  a  35  by  35  matrix 
size  at  2  mile  intervals  (figure  3.8). 
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Figure  3*7- 


Block  Diagram  For  Trend  Analysis. 
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A  similar  study  was  carried  out  using  the  gravity  data 
in  the  same  region.  An  area  of  52  by  52  miles  was  digitized 
at  a  one  mile  interval  and  was  subjected  to  the  same  filter 
operators  but  it  was  not  decimated.  The  test  and  sample 
maps  are  of  the  same  size  as  for  the  magnetic  data.  The 
trend  analysis  using  gravity  data  is  shown  in  figure  (2.9). 
It  is  clear  from  the  study  of  the  trend  map  that  there  are 
very  few  trends  reflected  by  the  gravity  data  and  most  of 
the  gravity  anomaly  is  due  to  the  large  norite  mass. 
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Figure 


3.8 


Showing  the  trends  as  obtained  by  using  a  test  map 
of  12  by  12  miles  for  the  magnetic  data  (decimated) 
in  figure  (2.8) 
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MAGNETIC  MAP  REDUCED  TO  THE  POLE 

AND 

COMBINED  ANALYSIS  OF  GRAVITY  AND  MAGNETIC  FIELDS 


Introduction 

The  ratio  of  the  intensity  of  magnetization,  J,  and  the 
density  of  the  rock  units,  p,  can  be  obtained  using  equation 
(1.6). 


ZT  =  Gp"  sin  1  +  cos 


(4.1) 


Where 


G 


is 

is 


g'(z)=ff 

g'(H)=lf 


the  vertical  magnetic  intensity 
the  gravitational  constant 


g  is  the  gravitational  field 

H  is  in  the  direction  of  declination  D  of  the 

magnetization  of  the  body  and  is  assumed  to  be 
along  the  earth’s  normal  field. 

I  is  the  inclination  of  the  magnetization  of  the 

body  and  is  assumed  to  be  along  the  earth’s 
normal  field. 


In  this  equation  g^(z)  can  be  determined  directly  by  using 
the  continuation  and  derivative  programs  as  described  in 
Chapter  2.  The  horizontal  gradient  g^(H)  along  the  declina¬ 


tion  D  is  obtained  by 

g"(H)  =  g"(x)  Sin  D  +  g"(y)  cos  D 


(4.2) 
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Where 

x  is  considered  eastward  and 
y  is  considered  northward 

g' (x)  and  g'(y)  are  obtained  by  differentiating  equation 
(1.1)  with  respect  to  x  and  y  respectively.  The  Fortran  IV 
program  to  obtain  g^(x)  is  listed  in  Appendix  G.  Figures 
4.1  (a)  and  4.1  (b)  illustrate  the  first  vertical  derivative 
g'(z)  of  gravity  at  1000  feet  above  the  surface  and  the 
first  horizontal  derivative  g^(H)  along  the  declination  22°E, 
at  the  same  level  for  the  Stony  Rapids  area  of  Northern 
Saskatchewan.  The  original  data  discussed  in  Chapter  2  was 
filtered  and  decimated,  so  the  sampling  interval  is  2  miles. 

The  theoretical  component,  ZT,  of  magnetic  intensity 
can  be  calculated  using  the  observed  gravity  data,  for  any 
known  or  assumed  direction  of  magnetization  with  the  follow¬ 
ing  restrictions  on  the  sources: 

(1)  The  gravitational  and  magnetic  fields  are  produced  by 
the  same  body  and 

(2)  'the  body  has  a  uniform  density,  p;.,  and'  is  polarized 
uniformly  with  an  intensity  of  magnetization  J. 

Figure  (4.2)  illustrates  the  theoretical  component  of 
magnetic  intensity,  ZT,  in  which  the  ratio  ^  is  assumed  to  be 
constant  over  the  entire  area. 
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Figure  4.1  (a) 

First  vertical  derivative,  g' (z)  of  gravity  field 
at  1000  feet  above  the  surface 
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Figure  4.1  (b) 

First  horizontal  derivative,  g'(H) 
along  the  declination  22°  E 
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Figure  4.2 

Theoretical  component  of  vertical  magnetic  intensity  Z™ 
equals  plotted  values  x  J/(pG) 
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General  Geology,  gravity  and  magnetics  of  the  Stony  Rapids  area 

The  general  geology  of  the  area  is  briefly  reviewed  from 
the  published  geological  works  mentioned  below.  North  of  the 
Fond-du-Lac  river,  meta-sediments  make  up  the  dominant  rocks 
of  the  area  and  also  associated  with  them  are  meta-volcanic 
rocks.  They  consist  of  biotite-gneiss ,  hornblende-biot ite- 
gneisses,  meta-arkose,  garnet-quartz-feldspar  gneisses,  etc. 

The  granitic  rocks  consist  of  granodiorite ,  pegmatite  and 
minor  granitic  segregations.  Their  outcrops  are  numerous  and 
form  pronounced  topographic  highs.  In  the  study  area,  the 
noritic  rocks  are  exposed  in  the  north.  Small  concordant 
bodies  of  noritic  rocks  are  found  intimately  interlayered  with 
the  garnet-gneisses,  arkoses  and  biotite-gneisses .  Diabase 
dikes  also  occur,  at  places,  in  small  sizes.  For  further 
details  of  the  geological  mapping  in  the  area,  one  may  refer 
to  the  reports  by  Colborne  (1960-63),  Fahrig  (1961),  Blake 
(1956),  Hriskevich  (19^9),  Mawdsley  (19^9)»  Furnival  (19^0), 
Alcock  (1936).  South  of  Fond-du-Lac  river,  the  Athabasca 
sandstone  crops  out  and  nothing  is  known  about  the  under¬ 
lying  igneous  and  metamorphic  rocks. 

From  gravity  and  magnetic  maps  it  seems  apparent  that 
the  potential  field  anomalies  are  caused  by  the  high  density 
mass  distribution  underneath  (e.g.  norite  bodies). 
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A  negative  gravity  anomaly  trend,  of  about  -10  to  -15 
milligals  runs  on  either  side  of  the  main  gravity  anomalies 
and  are  in  the  NE-SW  direction.  Observations  from  the 
magnetic  map  show  the  low  magnetic  trends  in  the  same  general 
directions  as  the  negative  gravity  anomaly  trends  and  these 
are  large  scale  trends  which  continue  across  into  Alberta. 

Most  probably,  these  large  scale  trends  are  associated  with 
long  fractures  or  shear  zones  which  may  be  zones  of  weak¬ 
ness  in  the  crust.  A  NE-SW  trending  fault  in  the  northwest 
of  the  main  intrusive  body  coincides  with  the  low  magnetic 
and  gravity  anomaly  trends.  Furthermore,  the  low  gravity 
and  magnetic  trends  southwest  of  the  main  intrusive  body 
seems  to  parallel  the  Black  Lake  fault. 

The  vertical  component  of  gravity  was  calculated  for  a 
three-dimensional  model  using  the  density  differences  des¬ 
cribed  by  Agarwal  and  Kanasewich  (1968).  Figure  (4.3  a) 
shows  a  cross-section  through  the  center  of  this  model  and 
the  observed  values  along  the  line  6-6'.  Good  agreement  was 
obtained  between  Bouguer  anomalies  and  the  model  gravity 
calculations.  The  theoretical  profile  was  calculated  by  using 
the  method  devised  by  Talwani  and  Ewing  (i960)  .  The  model 
chosen  for  analysis  is  not  unique  as  there  could  be  numerous 
solutions  for  various  distributions  of  the  same  total  mass. 

The  model  was  divided  into  two  parts  with  a  density  contrast  of 
0.25  gm/cm3  between  basic  and  country  rocks  and  -0.3  gm/cm3 
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°  THEORETICALLY  CALCULATED  VALUES 


Figure  4.3  (a) 

Theoretical  model  of  gravity  profile  6-6 ’ 
shown  in  figure  (2.1) 
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Figure  4.3  (b) 
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between  sandstone  and  Country  rocks. 

From  the  model  It  is  seen  that  the  exposed  portion  of 
the  norite  body  is  gently  dipping  under  the  sandstone. 

In  the  centre,  the  main  norite  body  with  the  calculated  mass 
distribution  has  a  thickness  of  at  least  7  kilometers.  The 
thickness  of  the  overlying  sandstone  probably  increases 
gradually,  NW  to  SE,  from  zero  to  about  one  kilometer. 

Figure  4.3  (b)  shows  the  correlation  of  gravity,  magnetic 
and  geological  data  along  the  profile  6-6’.  The  magnetic 
and  gravity  profiles  do  agree  with  the  main  geological  fea¬ 
tures  in  the  area.  It  is  observed  that  there  are  inter¬ 
related  gneisses  in  the  norite  body,  which  are  not  taken  into 
account  in  our  simple  model.  The  model  presents  a  general 
distribution  of  anomalous  mass  with  a  moderate  thickness  of 
sandstone  blanket  at  the  top.  Only  a  simplified  model  has 
been  presented  and  it  will  need  to  be  modified  with  more 
information  about  the  basement. 

Reduction  of  the  observed  total  magnetic  field  to  the  pole 

To  establish  the  hypothesis  whether  the  gravity  and 
magnetic  fields  are  produced  due  to  the  same  body,  the 
theoretically  calculated  value,  ZT,  from  equation  (4.1)  must 
be  compared  with  the  observed  magnetic  field  ’reduced  to  the 
pole’.  Bhattachayya ’ s  (1965)  method  has  been  modified  to 
take  advantage  of  the  fast  Fourier  transforms  to  reduce  the 
total  magnetic  field  to  the  pole  for  arbitrary  values  of 
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inclination  and  declination.  The  formula  used  and  the 
Fortran  IV  program  is  given  in  Appendix  H.  Figure  (4.4) 
illustrates  the  data,  reduced  to  the  pole,  using  an 
inclination  of  80°N  and  a  declination  of  22°E.  The  figures 
are  the  current  values  in  the  Stony  Rapids  area  as  obtained 
from  the  maps  published  by  the  Dominion  Observatory. 


Analysis  of  gravity  and  magnetic  fields  in  the  wave  number  domain 
The  potential  field  presents  the  composite  effect  due 
to  sources  of  various  wavelengths.  One  can  analyze  each 
wavelength  in  the  wave  number  domain  by  taking  the  Fourier 
transforms  of  each  set  of  data  and  it  may  be  possible  to 
arrive  at  some  suitable  idea  about  the  type  of  source,  a 
particular  wavelength  may  represent.  The  typical  character¬ 
istic  physical  properties,  such  as  — ,  for  a  particular  band 

P 

of  wavelengths  may  provide  an  insight  about  the  various  rock 
unit  structures  and  could  be  helpful  in  the  interpretation 
of  potential  field  data. 

The  two  sets  of  data  illustrated  in  figures  (4.2)  and 
(4.4)  can  be  analyzed  by  using  the  coherency  criteria  which 
is  a  function  of  wave  number.  The  coherence  function  is 
defined  as: 


Coh; 


P„  „  (k  ,k  ) 

2 

Zo>V  x  y 

pr 

7  (k  ,k  )  P7 
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(4.3) 


Xr 

•: 


: 


61 


107*00' 


105*34' 


SCALE-MILES 

8  *  0  4  8  12  16 


Figure  4.4 


Total  magnetic 
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earths’  normal 


field  (figure  3.11) 
80°  N  and  D=D  =22°  E 
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Where 


Z 

o 


Z 


T 


P-7  „  (k  ,k  ) 

Zq  5  Zt  X  y 


P7  (k  ,k  ) 
ZQ  x»  y 


Vvy 


is  the  observed  magnetic  data  ’reduced 
to  the  pole ’  . 

is  the  theoretically  calculated  field 
using  gravity  data. 

is  the  cross-power  spectra  for  the  two 

sets  of  data  Zm  and  Z  . 

T  o 

is  the  auto-power  spectra  for  the  data  set 

Z  . 

o 

is  the  auto-power  spectra  for  the  data 
set  ZT< 


The  raw  power  density  is  smoothed  in  the  frequency  domain 
by  convolving  with  the  two-dimensional  Hamming  window 
(Kinsman  1965).  From  the  smoothed  cross  and  auto-spectral 
density  the  coherence  coefficients  are  obtained  using 
equation  (4.3).  If  the  coherency  is  very  low  for  a  particu¬ 
lar  band  of  wave  numbers,  ZQ  and  Z T  are  said  to  be  incoherent 
in  that  wave  number  band,  i.e.  the  two  sets  of  data  are 
uncorrelated  in  phase  over  a  small  band  of  wavelengths.  It 
will  clearly  indicate  that  the  magnetic  and  gravity  data  do 
not  represent  or  are  not  due  to  the  same  source  body  and  the 
method  to  obtain  in  such  a  case  will  not  be  applicable. 

It  may  also  indicate  that  the  rocks  are  magnetized  in  a 
different  direction  from  the  earth’s  normal  field.  On  the 
other  hand,  if  the  coherency  is  very  high  (Coh  >  0.7)  for 
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a  particular  band  of  wave  numbers,  then  the  source  of  the 
magnetic  and  gravity  fields  are  probably  from  the  same  rock 
units.  In  such  a  case  the  method  would  provide  a  good  set 
of  values  which  can  be  calculated  from  the  amplitude  of 
each  data  set. 

Knowing  that  the  two  sets  of  data  are  highly  coherent, 

one  can  proceed  to  obtain  the  ^  ratio  for  a  particular 

band  of  wave  numbers.  This  may  be  done  by  taking  the 

Fourier  transforms  of  each  set  of  data  separately  and  then 

calculating  the  amplitude  for  each  data  set.  The  amplitude 

ratio  from  the  observed  magnetic  field  to  the  theoretically 

calculated  one  would  provide  the  representative  value  of 

—  for  a  particular  band  of  wavelengths.  For  a  highly 
P 

coherent  potential  fields*  the  values  of  should  be  uniform. 

Any  inconsistency  of  ^  or  coherency  tests  would  reflect 
whether  the  underlying  assumptions  such  as  the  direction  of 
magnetization  and  the  uniform  properties  of  the  source  body 
are  valid  or  not.  If  the  results  are  not  coherent,  Z T  can 
be  re-calculated  from  equation  (4.1)  by  assuming  different 
directions  of  magnetization  and  carrying  over  the  process  all 
over  again.  For  a  more  complete  analysis  equation  (4.1) 
will  have  to  be  generalized  to  the  case  where  the  direction 
of  magnetization  of  the  rocks  and  of  the  earth’s  normal 
field  are  different . 

If  the  method  is  carried  out  to  completion,  it  will 

supply  not  only  —  ratio,  representative  of  rock  units  in  the 
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particular  area,  but  one  can  also  obtain  J  knowing  p 
from  rock  sample  measurements  or  vice  versa.  The  iteration 
of  the  method  would  also  provide  the  direction  of  magnetiza¬ 
tion. 

Application  to  potential  field  data 

Coherency  test  for  the  two  sets  of  data  as  illustrated 

in  figures  (4.2)  and  (4.4)  is  plotted  in  figure  (4.5)  and 

the  —  ratio  for  various  wavelengths  are  shown  in  figure  (4.6). 
P 

Generally,  the  coherency  is  high  and  the  —  ratio  in 

P 

the  study  area  varies  between  1000  x  10”6  cgs  units  to 
20,000  x  10-6  cgs  units  for  3  to  14  mile  long  wavelengths. 
Assuming  a  density  contrast  of  0.25  gm/cm3  the  calculated 
susceptibility  varies  from  2000  x  10-6  cgs  units  to  8000  x  10” 
cgs  units  using  the  0.6  Oersted  field  in  this  area.  The 
susceptibility  values,  thus  obtained  agrees  generally  with  the 
basic  type  of  rocks  given  by  Garland  (1951).  It  is  reasonable 
to  assume  from  this  analysis  that  both  the  density  contrast 
and  the  magnetization  is  due  to  the  norite  and  associated 
basic  rocks  in  the  Stony  Rapids  area. 
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Figure  4 . 5 

Coherency  values  for  various  wavelengths  (using 
the  ’reduced  to  the  pole’  and  the  calculated  data). 
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Figure  4 . 6 


Ratio’s  of  J/p  for  various  bands  of  wavelengths  in 
the  Stony  Rapids  area.  Northern  Saskatchewan. 
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CONCLUSIONS 

This  investigation  is  concerned  with  the  two-dimensional 
harmonic  analysis  in  the  digital  domain  using  recently  develop¬ 
ed  techniques  in  time  sequence.  Use  of  the  fast  Fourier 
transform  algorithm  has  been  made  in  developing  the  techniques 
of  analysis.  The  potential  field  data  can  be  represented  and 
analysed  in  the  wave  number  domain  to  obtain  the  physical 
characteristics  for  a  group  of  wavelengths,  which  may  further 
enhance  the  interpretation. 

The  power  spectra  of  a  long  magnetic  profile  has  been 
studied  in  detail  to  establish  the  effects  of  aliasing  errors 
on  structures  of  various  wavelengths.  It  was  observed  that 
the  maximum  power  is  concentrated  at  longer  wavelengths.  At 
shorter  wavelengths,  quite  a  few  spectral  highs  were  noted 
which  may  be  due  to  small  scale  geological  features  or 
represents  the  noise  due  to  digital  errors  and  should  be 
filtered  out  before  any  further  analysis  of  the  data.  This 
study  has  also  indicated  there  is  very  little  distortion  or 
aliasing  at  all  wavelengths  greater  than  1  mile  for  a 
sampling  interval  of  h  mile.  Probably  a  sampling  interval  of 
1  mile  will  suffice  if  one  is  interested  in  studying  the 
structures  longer  than  4  mile  wavelengths.  A  digital  interval 
as  large  as  2  miles  is  dangerous  to  use  because  a  substantial 
amount  of  distortion  is  introduced  at  longer  wavelengths 
in  this  study  area.  On  the  other  hand,  to  study  the  small 
scale  structures  of  economic  significance,  a  smaller  digital 
interval  may  be  desirable. 
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The  study  was  limited  to  large  scale  structures  and 
with  this  in  mind,  the  magnetic  maps  were  digitized  at 
h  mile  intervals  obtaining  20,000  points.  After  convolu¬ 
tion  and  decimation,  the  digitized  data  was  further  reduced 
to  5000  points  at  a  sampling  interval  of  1  mile.  The  impulse 
response  and  transfer  functions  for  the  two-dimensional 
filters,  used  for  smoothing  the  data,  were  studied.  It  is 
concluded  that  these  filter  operators  are  quite  adequate 
although  they  could  be  further  improved  if  desired.  A 
study  of  the  maps  indicates  that  the  filtering  process  could 
be  very  useful  in  delineating  the  trends  for  various  wave¬ 
lengths  of  interest.  Particularly,  the  filtered  maps  using 
band  pass  (2-20  miles)  operators  delineates  the  trends 
very  effectively. 

During  this  work  a  new  method  of  cross-correlation  has 
been  developed  from  which  trend  directions  can  be  obtained 
with  more  reliability.  In  the  new  method  of  cross-correlation 
the  same  two  dimensional  matrix  of  values  are  used  for  the 
two  functions  but  one  of  them  is  modified  by  surrounding  the 
central  core  with  a  field  of  zero’s.  This  important  concept 
of  introducing  zero’s  around  the  test  function  makes  it 
possible  to  obtain  the  correlation  coefficients  for  the  same 
sample  set  without  the  limitations  imposed  by  the  symmetry 
properties  of  an  auto-correlation  function.  A  highly 
correlated  data  set  provides  a  high  correlation  coefficient 
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and  an  increase  or  decrease  of  the  coefficient  value  is 
an  indication  of  trend  direction.  This  technique  makes  it 
possible  to  study  the  primary  or  secondary  or  both  types 
of  trends,  although  the  present  study  is  limited  to  primary 
trends  only.  To  study  the  large  scale  features  of  interest, 
the  two-dimensional  data  was  convolved  with  the  filter 
operators  to  remove  the  features  due  to  short  wavelengths 
and  then  decimated  to  reduce  the  number  of  coefficient 
calculations.  The  direct  method  of  calculating  the  cross- 
correlation  coefficients  takes  an  enormous  amount  of  computer 
time  which  prevents  one  from  undertaking  a  study  on  a  large 
scale.  To  overcome  this  difficulty  a  method  has  been 
developed  in  which  the  calculations  of  two-dimensional  cross¬ 
correlation  coefficients  are  carried  out  by  using  the  fast 
Fourier  transform  algorithm. 

The  cross-correlation  coefficients  are  normalized  so 
they  vary  between  +1  and  -1  and  their  spatial  variation 
provides  a  method  of  tracing  the  trends  due  to  various  geolog¬ 
ical  factors.  An  empirical  method  has  been  devised  to  trace 
the  trends  in  an  unbiased  manner  by  fitting  a  least  squares 
third  order  polynomial  to  the  maximum  trend  coefficients. 

The  technique  has  been  applied  to  the  magnetic  and  gravity 
data  from  the  Stony  Rapids  area.  Northern  Saskatchewan.  The 
method  provides  a  weighted  correlation  coefficient  for  each 
trend  line  which  can  be  used  as  a  criterion  in  accepting  or 
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rejecting  a  particular  trend.  It  is  possible  to  design  a 
filter  which  may  remove  the  effect  of  a  particular  trend  and 
allow  the  unbiased  analysis  of  local  anomalies  of  interest. 

In  another  aspect  of  this  investigation,  analytic 
techniques  such  as  upward  and  downward  continuation,  first, 
second  etc.  vertical  derivatives,  first  horizontal  deriva¬ 
tives  and  reduction  of  the  total  magnetic  field  to  the  pole 
have  been  developed  by  using  the  fast  Fourier  transform 
algorithm.  This  simplifies  the  calculations  and  provides  the 
results  in  a  compact  form.  Use  of  these  techniques  have  been 
made  in  the  combined  analysis  of  magnetic  and  gravity  data. 
The  possibility  of  calculating  representative  ^  ratios  of 
the  rock  units  in  a  particular  area  is  investigated.  It  is 
done  by  analysing  each  wavelength,  of  the  potential  field 
data,  in  the  wave  number  domain.  A  coherency  criterion  is 
used  to  test  the  validity  of  two  potential  field  data  sets 
for  such  an  analysis.  The  method  is  limited  to  a  particular 
case  where  the  rocks  are  magnetized  in  the  direction  of  the 
earth’s  normal  field.  If  the  coherency  criterion  is  valid, 
one  can  obtain  a  representative  set  of  ratio  as  a  function 
of  wavelength  in  a  particular  area  and  this  could  be  useful 
in  the  interpretation  of  the  potential  field  data. 
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The  fast  Fourier  transforms 

The  criteria  for  the  formulation  of  equations  (2.1)  and 
(2.2)  along  with  their  various  properties  have  been  dealt 
thoroughly  by  Cooley  and  Tukey  (1965),  Gentleman  and  Sande 
(1966)  and  Cooley  et  al  (1967).  In  general,  direct  computa¬ 
tions  of  the  transforms  require  N2  operations,  whereas  by 
using  the  fast  Fourier  transform  algorithm  it  takes  less 
than  rN  log^N  operations  (where  r  is  a  factor  of  N).  In 
other  words,  one  can  obtain  the  transforms  (N2/rN  log^N) 
times  faster,  moreover  the  accuracy  of  the  results  is  also 
increased  by  the  same  ratio.  In  the  F.F.T.  algorithm  the 
data  is  considered  in  the  form  of  a  vector  and  the  fundamental 
basis  of  the  algorithm  is  to  decompose  each  vector  into 
simple  factors.  For  example  if  N  has  r  factors  say 

N  =  r  .r  . rm,  then  according  to  the  F.F.T.  algorithm  a 

vector  is  decomposed  into  elementary  transformations  followed 
by  a  permutation  of  the  result.  In  the  same  manner  a  two- 

dimensional  data  set  of  N  by  N  size  is  considered  to  be 

1  2 

a  vector  of  length  N  =  N  N  and  the  fast  Fourier  algorithm 

1  2 

applied  in  the  usual  way.  The  resulting  coefficients  giving 

the  amplitude  of  each  harmonic  are  given  by  an  array  of 

N  by  N  points. 

1  2 
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Power  spectra 

For  a  one-dimensional  set  of  data  X 
transforms  F,  are  given  by 


N-l 


27rikt 


t  =  0 


for  k=0 , 1 


the  Fourier 


.  .  .  , (N-l) 


(A-l) 


Using  Equation  (A-l),  we  can  obtain  the  auto-correlations 
A^  in  the  following  manner. 

-27rikt 


N'-l 


At  =  ~ 

Z  N' 


E 


k=0 


IT" 


for  t=0,l, _ ,(N"-1) 


. (A-2) 

Where 

Fk  =  0  for  k  =  N+l,N+2, . . . .N"  }  N"  >  N 


Thus  by  using  the  fast  Fourier  transforms,  the  one¬ 
dimensional  power  density  estimates  are  obtained  from  the 
following  equation. 


i .  e . 


m 

*  wt 

t=0 


e 


27Tirt 

m 


(A-3) 


' .  .  , :  ,  in  =  x  ao'i 
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Where 


Ax  =  sampling  interval 


r  *  0,±1,±2, . . . ,±m  lags 


m 


maximum  lag  or  displacement 


and 


W 


sin  7Tt 


for  t=0 } ±1 


±m 


t 


m 


TTt 


m 


(A-4 ) 


The  expression  in  Equation  (A-4)  represents  the  Daniel 
window  which  is  applied  in  the  lag  domain  to  obtain  the 
power  density  estimates.  For  a  detailed  discussion  of 
Daniel  window  one  may  refer  to  GAG  Report  No.  9,  1955 > 
Kanasewich  (1966). 

The  block  diagram  in  figure  (A-l)  indicates  the 
procedure  to  obtain  the  power  density  estimates  by  using 
the  fast  Fourier  transforms. 
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CALCULATE 
RAW  POWER  DENSITY 
SPECTRUM 

F.F  .T 


AUTO-CORRELATION  IN 
LAG  DOMAIN 


APPLY  FILTER  OPERATORS 
IF  DESIRED 


DECIMATE  THE  DATA  IF 
DESIRED 


APPLY  DESIRED  WINDOW 
FOR  SMOOTHING 


Figure  A-l.  Block  Diagram  to  obtain  power  density  estimates 

using  fast  Fourier  transforms. 
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TOTAL  NUMBER  OF  DIGITIZED  P0INTS=792  RT  0.25  MILE  INTERVAL 


FILTERED  DRTfl  OBTAINED  BY  USING  THE  LOW  CUT  WAVELENGTH  FILTER  CGEFFS. 
(FILTER  CUTS  OFF  ALL  WAVELENGTHS  SHORTER  THAN  TWO  MILES) 

POWER  SPECTRA  OF  FILTERED  DATA. USING  DANIEL  WINDOW  (WITH  N0PTS/MR=1O) 
(PLOTTED  ON  A  LOGRITHMIC  (BASE  10)  SCALE) 


WAVENUMBER  RESOLUTION 


Figure  A-2 

Spectral  density  plot  of  a  long  magnetic  profile 
(using  filtered  data  with  wavelengths  shorter  than 
2  miles  removed)  at  h  mile  digital  interval 
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SUBR  CU  T INE  AR  10  FT  (N,X,Y,5) 

C  A  KB  I  fRARY  KAO  I  X  ONE  DIMENSIONAL  FOURIER  TRANSFORM 

C 

INTEGER  N 

REAL  X  ( 10 ) ,  Y  (  10)  ,  S  I  10) 

C 

CALL  Gk  10  FT  lN,x,Y) 

CALL  GR  10  FS  (N,X,Y,S) 

RETURN 

ENO 
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SUBROUTINE  GR  1U  FT  (NOPTS,X,Y) 

C  ONE  DIMENSIONAL  FOURIER  TRANSFORM 

C 

REAL  XI  10)  »  Y  110) 

C 

INTEGER  J,K,M,MR,J1,J2,J3,J4,J5,JT 
REAL  11,12,13,14,15 
INTEGER  ? , PMA  X  ,  U  »  V 
C 

C  NEEDS  SUKT  ID  TO  RECOVER  UNSCRAMBLED  FOURIER  COEFFICIENTS 

C 

C  THIS  SUBROUTINE  REPLACES  X  +  I  Y  BY  ITS  FOURIER  TRANSFORN  WHERE 

C  X(F)+IYIF)  =  SUM  T  =  0, I NUPTS-1)  OF  l X  l  T ) + 1 Y ( T )) +  EXP I -F*T/ NOPTS ) 

C 

C  REAL  I  ( PM  AX ) ,  R  (PM AX),  C  (PMAX,PMAX),  S  (PMAX,PMAX), 

C  .A  l ( PMAX-1 }**2+l i  ,  B  ( <PMAX-i)**2+l ) 

C 

REAL  I  (13),  R  (13),  C  (13,13),  S  (13,13),  A  (145),  B  (145) 

C 

PMAX=13 

C 

TwOPI=6. 283185307 
M  =  N  C  F  T  S 
100  CONTINUE 

IF  ( M.NE. (M/4 )*4)  GO  TO  400 
FACTORS  CF  FOUR 


MR-M 
M  =  M  /  4 

CC  300  J= 1  ,  M 

ARG=TWOP I*FLCAT( J-l ) /F  LOAT ( MR) 
C 1  =  CC  S ( ARG ) 

S 1=  S I N ( ARG  ) 

C2=CCS( 2.0*ARG) 

S  2  =  S I N ( 2 • 0*aRG ) 

C3=CCS(3«0*ARGi 
S3^=SIN(  3.0*ARG  ) 

DC  2C0  K-MR , NCPT S , MR 

J 1= J+K-MR 

J2=  J 1  +  M 

J3= J2+M 

J4= J3+M 

R1=X(JI)+X(J3) 

R2=X ( J 1 )-X ( J3 ) 

I  1=  Y  (  J  1  )  +  Y  {  J  3  ) 

I  2=  Y  (  J  1  )  — Y  (  J  3  ) 

R3-X ( J2 ) +X ( J4  ) 

R4=X(J2)-X( J4 ) 

I  3=  Y ( J2 ) + Y ( J4  ) 

I4=Y ( J2)-Y ( J4  ) 

X  (  J  i  )=Kl+R3 
Y  (  J  1 )  =  I  1+13 
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X(J2)=(R2+I4)*CI+{ I 2-R4 )  ^  S  1 
Y ( J  2 )  =  ( I2-R4) *C1- (R2+I4) *S1 
XI  J3)  =  (Rl-R3)*C2i-  {  I  1-I3)*S2 
Y{J3)  =  (  I  1  —  13)  *C2-(fU-R3)*$2 
X( J4)=(K2-I4) *C3*( I2+R4)*S3 
Y( J4)=( I2+R4) *C3- (R2-I4) *S3 
2C0  CONTINUE 
"  3CC  CONTINUE 
GO  TC  LOO 
4C0  CONTINUE 

IF  (M.NE.(K/2)*2)  GO  TC  700 

FACTCRS  OF  TWO 

MR  =  M 
M  =  M/2 

CO  60 C  J-l,M 

ARG=TwCPI*FLGAT ( J— 1 ) /FLOAT (  MR) 

C  l  =  CCS { ARG ) 

S  1=S  IM  ARG  ) 

DO  5CC  K=MR  » NCPT  S » MR 
J  1  =  J  +  K-MR 
J  2=  J  1  +  M 

R 1  =  X ( Ji )+X ( J2  ) 

R2=X ( J 1 )-X { J2 ) 

I  i  =  Y { J  L ) + Y ( J2  ) 

I2=Y(J1)-Y(J2) 

X  I  J  1 ) -R1 
Y(  J1)=I 1 

X(  J2)=R2*CI+I2*$1 
YI  J2)  =  I2*Ci-R2*S I 
50G  CONTINUE 
60C  CONTINUE 
GO  TC  400 
700  CONTINUE 

IF  (M.NE. (M/3)*3 >  GO  TO  1000 

FACTORS  OF  THREE 

MR  =  M 
M  =  M/2 

A1=CCS(T*GPI/3.C) 

B1=S  IMTWOPI/3.0) 

A2=CCS( 2.0*TWCPI/3.0) 

B2=S1N( 2.0*TWGPI/3.0) 

CO  SCO  J=  1 » M 

ARG=T WCP I^FLOAT ( J-l ) /FLOAT (  MR) 

ABSORB  TWIDDLE  FACTOR  INTO  ANALYSIS  COEFFICIENTS 

C21=CCS( ARG) 

S21=SIN( ARG) 

C22=C21*A1-S21*B1 
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S22  =  C2l*Bl  +  $21*A.l 
C23=C21*A2-S2 l*B2 
S2J=C2i*B2+S2 1*A2 
C31=CCb(2.0*ARG) 

S31-SIN( 2.0*AHG) 

C32=C31*A2-S31*82 

S32=C31*B2+S31*A2 

C33=C31*A1-S31*B1 

S33=C31*31+S31*A1 

CC  8CC  K-MK  »  NCPT  S  »  MR 

Jl= J+K-NR 

J2= J  I  +  M 

J3  =  J  2  +  M 

R  1  =  X  (  J  1  } 

1  1—  Y  (  J  1 J 
R 2=  X { J2  ) 

I2=Y( J2) 

R3=X ( J3 ) 

13  =  Y ( J  3  ) 

X( J1 ) =R 1  +  R2  +  K  3 
Y 1 J  1 )  =  1  1+12+  13 

X ( J2 )=R 1*021+ I 1*S21+R2*C22+I 2*S22+R3*C 23 +1 3*S23 

Y  (  J  2 )  =  I 1*C21-R1*S21+I 2*C22-K2*S22+I3*C23-R3*S23 
X ( J3 )=R1*C31+I  1*33  1+R2*C32+ I 2*S32+R 3*C33+ 1 3*S33 

Y  (  J3  )=  I  1*C31-R1*S31+I2*C32-R2*S32+I 3*C33-R3*S33 
800  CONTINUE 

900  CONTINUE 
GO  TO  7CC 
1000  CONTINUE 

IF  (P.NE.(M/5J*5)  GC  TO  1300 
FACTORS  OF  FIVE 


FR  =  M 
M  =  M/5 

A1=CCS ( TW CPI/5.0 ) 

B  1=S IN ( TWOP 1/5.0 ) 

A2=CCS{2.0*TwCPI/5.0) 

B2=SlM2.G*TwCPl/5.0) 

A3=CCS (3.C*TWCPI/5.0) 

B3=S  IN( 3.0*TWCPl/5.0 ) 

A4  =  C  C  S ( 4.0*1 W CPI /  5 .  U ) 

B 4= SIN(4.C*TW CPI/5.0) 

CG  1200  j=l,W 

ARG=  T  WUP  I  *  F  L  0  A  T ( J- 1 ) /FLOAT  (  MR J 


ABSORB  TWIDDLE  FACTOR  INTO  ANALYSIS  COEFFICIENTS 

C2  1  =  CCS ( ARG ) 

S2 1=S I N ( ARC ) 

C22=C2I*A1-S21*B1 

S22=C21*B1+S21*A1 

C23=C2l*A2-S21*B2 


• 

* 

* 
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S23=C21*B2+S21*A2 

C24=C21*A3-S21*B3 

S2h=C21*B3+S21*A3 

C23=C2i*A4-32 1*B4 

S25=C21*B4+S2 1*A4 

C31=LCS( 2 . C*A  RG ) 

S31=SIM2.0*ARG) 

C32=C31*A2-53 1*B2 

332=C31*B2+S31*A2 

C33-C31*A4-S31*B4 

S33  =  C3  l*B4+33 1*A4 

C34^C3l*Al-:>31*8i 

S34=C31*Bi+S31*Al 

C35=C31*A3-S21*B3 

S35=C31*B3+S31*A3 

C4 1-CC  S l 3 . Q RG ) 

S41=S1N( 3.0*ARbJ 

C42=C41*A3-S41*63 

S42=C41*83+$4l*A3 

C43=C41*A1-S41*31 

S43  =  C4 1*B 1  +  S4 1 *  A  1 

C44=C4I*A4— S4l*B4 

S44=C41*B4+$41*A4 

C45=C41*A2-S4  1*82 

S43=C41*32+$41*A2 

C5I^CCS(4.G*ARG) 

S51=SIN(4.0*ARG) 

C52=C3i*A4-$31*64 

S52^C51*34+S5  1*A4 

C53=C5i*A3-S31*B3 

S53-C51*B3+S51*A3 

C54=C31*a2-S51*62 

S54=C5i*B2+S51*A2 

C53=C31*A1-S51*B i 

S55=C51*bl+S51*Al 

LG  1 1  GO  K-.VR  » fNCP  T  S  »  M R 

Jl= J+K-RR 

J2= J 1+M 

J3= J2+M 

J4  =  J  3  +  M 

J5=J4+N 

R1  =  X( J  1 1 

I  1=Y  C  J  1 ) 

R2  =  X ( J  2 ) 

1 2= Y ( J  2  ) 

R3-X l J3) 

I  3  =  Y  C  J  3  ) 

R4=X ( J4 ) 

I  4- Y ( J 4 ) 

R5=X ( J5) 

I  3  =  Y ( J  5 ) 

X  l  J I )=R 1+R2+K3+R4+R5 
Y  l  J  1 )  =  I  1+I2+I3+I4H5 
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X(  J2)=Ri*C2i+I  i*S21+R2*C22+  I  2* S22  +  R  3*C23  +  i  3*52  3  «- R4*C 24+  I  4*S24+ 
•  R  5*C  25+  I  5*S25 


V  (  J2  i=  i  i*C2i-Ri*S21+i  2*C22-R  2*S22+  I  3*C 2  3-R 3*523  +  I 4*C24-R4*S24+ 
. I 5*C25-R5*$25 

X  l  J3  >=R1*C31+  I  i*S3i+K2*C32+I  2*S3?+R3*C33+I  3*$33+R4*C34+  I  4*S34+ 
• R5+C35+ I d*S35 

Y ( J 3 ) = I 1*C31-R1*S31+I2*C32-K2*S32+I 3*C33-R3*S33+ I4*C34-R4*S  34  + 
. 1 5*C35-Rb*:>35 

X( J4l=Rl*C4l+I L*S41 +R2*C42+ l 2* S42+R 3*C 43  +  I  3* S 43  +  R4*C44 + I 4*S44+ 
.R5*C45+ I5*S45 


Y  {  J4  )■=  I  1^041  —  K  l^S4i+- 1  2*C42-R2*542+I3*C43-R3*S43+I4*C44-R4*S44+ 
. 15*C45~R5*S45 


XI  J5)=Rl*C51+i  1*S51+R2*C5 


2+1  2*S52+R3*C53+I  3*$53+R4*C 54+ I  4*S54+ 


•  R  5*055+ I 5*S55 


Y ( J  5 )  =  I l*C51-Ki*S51+I2*C52-R2*S52+I3*C53-R3*S53+I4*C54-R4*S54+ 
•  I 5*0  55— K5*S55 
1100  COM  !  NUE 
1200  CONTINUE 

GC  TC  1000 
1 30C  CONTINUE 

IF  (MLE-1)  GC  TG  2400 
C 

C  GENERAL  FACICRS 

C 

CO  1400  J  =  2 »  PM AX 
P  =  J 

IF  ( R.Ev*. I P/P )*P  }  GO  TG  1500 
1400  CONTINUE 

CALL  FCT  ERR 
1500  CONTINUE 

JT=(P-1 )**2+l 


SET  CP  ARBITRARY  FACTORS 


CQ  1600  J=1,JT 

ARG=TWOP I*FLCAF( J-l ) /FLOAT  I  P ) 

A  (  J ) =CLS ( AHG ) 

B{ J)=SIN( ARC) 

1 60 C  CONTINUE 
PR=P 
N  =  M/P 

DC  23U0  J=  1  t  N 

ARG=TwOPI*FLGAT( J- I ) /FLOAT (MR) 


ABSQRE  TWIDDLE  FACTOR  INTU  ANALYSIS  COEFFICIENTS 

CO  1600  U-1»P 

C(U,  1)=CGS (FLOAT (U-l )*ARG) 

S(U»  1  )  =  S IN (FLOAT (U-l J *ARG) 

CO  1  7C0  V-2 »  P 
JT-IU-1J*(V-1)+1 

C ( U , V ) =C I U  ,  1 >  * A ( JT ) - S ( U , i ) *B ( J T ) 

S(U,  V)-C(U,1)*B( JT )+S(U,l)*A( J T ) 


V 


* .  j  »  ;  .• 

. 
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1700  CUNT INUE 
1800  CONTINUE 

DO  2200  K=MR,NOPTS»MR 

GENERAL  ANALYSIS 

LG  1900  U=1,P 
JT=J«-K-PR4-<U-1)*M 
R (U)=X( JT) 

1  (  U  )  — Y  (  J  T  ) 

1900  CGNT  INUE 

CC  2100  U= 1 ♦ P 
X  T  -  C  .  0 
YT  =  C  .0 

CC  2000  V=1,P 

XT-XT+K (V) *C (Uf V )  +  1 ( V  >  *S( Ut  V) 
YT=YT+I ( V)*CIU,V)-R( V) *S(U,V) 
2000  CONTINUE 

JT=J+K-Pk+ ( U- 1 
X ( JT  )  =  XT 
Y  (  J  T  )  =  Y  T 
2100  CONTINUE 
2200  CONTINUE 
2300  CONTINUE 

GO  TO  1300 
2400  COM  INUE 
RETURN 
END 
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SLBRCCT INE  GK  ID  FS  INGPTS»X,Y»S) 

C  UNSCRAMBLING  PROGRAM  FOR  ONE  DIMENSIONAL  FOURIER  COEFFICIENTS 

C 

REAL  X ( 1 0 ) ,Y(10),S( 10) 

C 

INTEGER  JT 

INTEGER  0  0  »  L  I  M  ( 13 J ,  STEP ( 13) ,P,PMAX 

INTEGER  A ,  B  »  C  ,  L' »  E  ,  F  ,  G ,  H  »  I  »J,K,L,M,AL,BL»CL,DL,EL,FL»GL,HL,  I  L  •  J  L  , 
•KL»LL»ML,AS,BSfCS»C$*ES»FS,GS,HS,lS»JS»KS»LS»MS 


DIGIT  REVERSER  FCR  USE  WITH  FOUR  ID  .  S  MUST  BE  THE  SAME  SIZE  AS 
X  AND  Y. 


EQUIVALENCES  TO  ALLOW  INDEXING  TO  SET  PARAMETERS  AND  ALLOW 
SCALARS  FOR  USE  IN  THE  DO  LOOPS. 

EQUIVALENCE  I  AS  ,  STEP ( 1 ) ) , ( BS ♦ STEP ( 2 ) ) , I C S , ST EP ( 3 )  )  , I DS , STE P l 4 )  } , 
.(ES»STtPI5))tlFS*STEPl6)J,(GS,STtPI7)),iHStSTEP(8))»(IS»STEP(9>), 
. ( JS, STEP! 10)  )  ,  ( KS »STEP( 11 ) )  ,  l  LS» STEP! 12) ) ,( MS, STEP! 13) ) 
EQUIVALENCE  I AL , L IM ( 1 ) ) , I BL , L IM ( 2 ) ) , I  CL , L IM ( 3 ) )  , I DL , L I M { 4 } )  , 

. ( EL,LIM( 3 i ) , ( FL,LIM(6) ) , ( GL,LIM{ 7) ) , IHL» L1M{ 8) ) , { IL» LIMI9) ) , 

.  I  JL,LIMI  10)  )  t  (KL  ,  LI.MC  11)  )  ,  (LL,LIM(  12)  )  ,  (KL,LIMU3)  ) 

PM AX  IS  SET  TC  AGREE  WITH  FOUR  10 


P  MA  X  =  1 3 

SET  LIMITS  AND  STEP  SIZES  FROM  INNER  LOOPS  GOING  OUT 

C0=  1  3 
M=NOP  T  S 
100  CONTINUE 

CHECK  FCR  FACTCRS  CF  4 

IF  IM.NE. ( M/4) *4)  GC  TO  200 
M  =  M/4 

REALLY  WANT  0-4*M-l  BUT  WE  GC  FROM  1  TG  4  STEPS  OF  M  WITH 

MAXIMUM  DISPLACEMENT  OF  M  INITIALLY 

L  IM ( EC )=4*M 
STEP! DL)=M 
CC=CC-1 
GG  TC  100 
200  CONTINUE 

CHECK  FCR  REMAINING  FACTORS 

IF  (M.LE. I )  GC  TC  500 
FACTCRS  OF  2,3,5,7,11, 13 


* 


. 


‘  .  V 

■ 


- 


. 


non  0000  000  mono  nor*. 
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CC  300  JT=2»PRAX 
P  =  JT 

IF  (  M.EQ.  (M/PK-P  )  GO  TO  A00 
300  CCNTINUE 

ERRGk  EXIT  IF  FACTORS  ABOVE  PMAX  ARE  NEEDED 

CALL  FCT  ERR 
AGO  CCNTINUE 
M  =  M/P 

REALLY  WANT  0-P*M-l  BUT  WE  USE  1  TO  P*M.  P  STEPS  OF  M  WITH 
MAXIMUM  INITIAL  DISPLACEMENT  OF  M 

LIM{DQ)=P*F 
STEP(CU)=M 
DG=DC- 1 
GO  TC  200 
500  CONTINUE 

FINISH  GUT  THE  DC  LCOPS  TG  MAKE  OUTER  LOOPS  EXECUTE  ONLY  ONCE 

CC  6CC  J  T= 1 , CC 
L I M ( JT )  =  1 
STEP ( JT 1=1 
60C  CONTINUE 

SET  JT  SO  THAT  JT  RUNS  FROM  i  TO  NUPTS  IN  STEPS  OF  i  WHILE  M  WILL 
RUN  WITH  REVERSED  DIGITS 


J  T  =  0 


CC 

7CC 

A- 

=  1 

,  AL 

,  AS 

DC 

7CC 

3  = 

-A 

»BL 

*  BS 

DC 

7CC 

C- 

=  B 

» CL 

,CS 

CC 

7CC 

c= 

=C 

»  UL 

,OS 

DC 

7CC 

E- 

=  D 

»  EL 

» ES 

CC 

7  CO 

F- 

-E 

t  FL 

»  F  S 

CC 

7C0 

G- 

=  F 

t  GL 

t  G  S 

DC 

70  C 

H3 

=G 

t  HL 

t  H  S 

DC 

7CC 

I - 

=  H 

,  IL 

»  IS 

DC 

700 

J- 

=  1 

t  JL 

,  JS 

CC 

ICC 

K- 

-  J 

tKL 

j  K  S 

DO 

70C 

L- 

=  K 

»  LL 

,LS 

CC 

7CC 

M  = 

--L 

» ML 

» y  s 

J  T- 

:  J  T+  I 

S  (  J  T  J  =  X  I  M  ) 

70G  CONTINUE 

COPY  BACK  CUT  OF  THE  SCRATCH  ARRAY 

DG  8 CC  JT=1,NCPTS 
XI JTJ=SIJT) 

8C0  CONTINUE 


* 

■ 


v  , jo.  o  o  t  ; 


non 
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C 

J  T  =  C 


CO 

900 

A- 

=  i 

»  al 

y  AS 

CC 

900 

B= 

=  A 

»BL 

y  BS 

cc 

900 

C= 

=  B 

yCL 

,CS 

CO 

9CC 

c= 

=C 

»DL 

,OS 

DC 

900 

E  = 

=  D 

» EL 

yES 

DO 

90C 

F  - 

=  E 

» F  L 

y  F  S 

CO 

9CC 

0= 

-F 

*  GL 

t  G  S 

DC 

9CC 

H- 

=G 

» HL 

y  H  S 

DO 

900 

=  H 

,  IL 

y  I  S 

CO 

900 

J= 

^1 

t  J  L 

y  JS 

CC 

900 

K- 

--J 

» KL 

,  KS 

CO 

900 

l- 

--K 

•  LL 

y  L  S 

CG 

900 

.V  ; 

--L 

•  ML 

y  MS 

JT= J T+l 
S( JT  )  =  Y(M) 

900  CONTINUE 

COPY  BACK  CUT  OF  THE  SCRATCH  ARRAY 

DC  950  JT=1,NCPTS 
Y( JT)=S( JT) 

950  CONTINUE 
RETURN 
ENO 


* 


•} 

o  o  d  o  o  r. 
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SC8RGU  I  INE  FCT  ERR 
C  FACTORING  ERRCR 

FACTORING  ERROR  I N  FOUR  ID  OR  SORT  ID. 

CURRENTLY  TAKEN  IF  A  FACTOR  ABOVE  13  IS  REQUIRED.  (THE  ARRAYS 
ARE  NUT  BIG  ENOUGH  TO  HANDLE  THINGS  ABOVE  13.) 

RRITE  (6,100) 

CALL  EXIT 

100  FORMAT  (  IX, 15H FACTORING  ERROR) 

RETURN 
END 


' 


■ 


‘ 


FORTRAN  IV 


MULTI-DIMENSIONAL  FAST  FOURIER 


TRANSFORM  SUBROUTINES 


O  o 


Ar  1  8 


SUBROUTINE  AR  MD  f T  (N,X,Y,S) 

C  ARBITRARY  RADIX  MULTI  DIMENSIONAL  FOURIER  TRANSFORM 

FIRST  SUBSCRIPT  VARIES  FASTEST  IN  KEEPING  WITH  FORTRAN  CONVENTION 

INTEGER  N  (IG) 

REAL  X  { 10) ,  Y  ( 1C) ,  S  (10) 

C 

CALL  gr  md  FT  l  N  »  X  »  Y ) 

CALL  GK  MO  FS  (N,X,$) 

CAi_L  GR  MD  FS  (N,Y,Si 

RETURN 

END 


. 


A  - 1 9 


C 

c 

c 


c 

c 

c 


SUBROUTINE  GK  MG  FT  (N,X,Y) 

GENERAL  RADIX  MULTI  DIMENSIONAL  FOURIER  TRANSFORM 

INTEGER  N  (1C) 

REAL  X  I  10  it  V  ( 10 ) 

I  ME GER  DI  MEN  ,  J  ,  J  J  ,  JO  ,  J  1 ,  J2 ,  J3  ,  J4  ,  K  ,  M  ,  MR  ,  P , PMAX ,  PROD  ,  SC  ,  U  ,  V 
REAL  ARG  ,  A  1 ,  A2  ,  A  3  ,  A 4  .  B 1 , 82  ,  B3  ,  B4 ,  C  1 ,  C2  ,  C3 , C  1 0 ,  C  1 1  , C  1  2  , C  1 3 ,  C  1 4 , 

•  CEO » C  2  1  j  C  22 »  u  2  3  ,  C  2  4 ,  C  3  0  ;  C31 »C32,C33,u34,C40»C41 ,  C  4  2 ,C4.3»Ca4, 10  , I  I » 
•I2fI3,I4,RQ,RijR2,R3»R4»Sl»S2»S3»SlG»Sll»S12»S13»5i4» S20, S21, 
•S22»$23»S24,S3G>S31,S32,S33»  S3<+ , S4G  ,  S4  1  »  S42  »  S43  ,  S44 ,  TWOPI  ,  XT  ,  YT 

/ 

REAL  A  (19),  B  (19),  C  (19,19),  I  (19),  R  (19),  S  (19,19) 


P  M AX  =  1 9 


TNGPl=6. 28313530 7 

C I M£N= 1 

PRCD=1 

ICO  CONTINUE 

PRGO=PRCD*N( 0  I  MEN ) 

CIMEN-DIMEN+1 

If  (N(OIMEN).GT.C)  GO  TO  ICO 
0IMEN=0IMEN-1 
SC=  PRCO 
M— PRCD 

2C0  CONTINUE 

SC=  SC/N ( D I  MEN ) 

C I  ivEN=D  I  ME  N-- 1 
30C  CONTINUE 

IF  (M/SC,NE.M/SC/4*4)  GO  TO  600 
MR-  M 
M  =  M/4 

DO  5CC  J=1,M 

ARGMaOPI^FlCAT ( ( J-l ) / SC ) /FLOAT l MR/ SC ) 
C  1  =  CCS ( ARG  ) 

S  1-5  l  N  (  ARG  ) 

C2=CCS( 2.C*ARG ) 

$2=S IN ( 2*0  *ARG ) 

C3  =  CCS ( 3 .0*ARG) 

S3=SIN( 3.C*ARG> 

DO  40C  K=MR , PROD , MR 
J0= J+K-MR 
J  1  =  JO  +  M 
J  2  =  J  I  +  M 
J3= J2+M 

RC  =  X(  JCJ+X( J  2  ) 

RI=X( JC )  — X ( J  2 ) 

IO=Y( JQ)+Y( J2) 

II=Y( J0)-Y( J2) 

R2=X(JI)*X( J  3 ) 

R3=X  (  J  1 )  -X ( J 3  ) 

1 2-  Y  (  J  i  )  +  Y  {  J  3  ) 


. 

. 

■  : 

.  v  .  » 


I  3= Y I J 1 ) -Y ( J3  } 

XI JC ) =K0+R2 
Y( JC)=IC+I2 

X(  J2)=(Kl-rI3)  *Cl+(  I  1-R3)*S1 

Y  (  J2  )  =  (  I  1-R3  )  *C  1- I  H  i-s- 1  3  )  *S  I 
X(  J1  )=(R0-R2)*C2+IIC-I  2)*S2 

Y  (  J 1 )  -  I I0-I2)*C2-(RG-R2)+S2 
Xi J3)  =  (Ri-I3)*C3*- 11 l+R3)*S3 
Y( J3)=( I1+R3) *C3-IR1-I3)*S3 

4C0  CONTINUE 
500  CONTINUE 
CO  TC  300 
60C  CONTINUE 

IF  (M/SC.NE. M/SC/2+2)  GO  TO  900 
MR-M 
M  =  M/2 

CO  6CC  J  = 1 »  M 

ARG=T*UPI*FLCAT i  I  J-l  >  / SC) / FLOAT  I  MR/ SC ) 
C1=CCS( ARG  ) 

SI=SIN(ARG) 

CO  7G0  K-MR  »  PROD  ?  MR 

J0=  J*K-MR 

J1=JC+M 

R0=XI JO+XI J1  ) 

Ri  =  X (JO )  — X ( J  1  ) 

IO=Y ( JO) +  Y ( Ji  ) 

I  1-Y { JO ) - Y I J 1 ) 

XI JO)=RO 

Y  (  J  C  )  =  I C 

XI Ji)=Rl*Cl+l 1+S1 
Y I J 1 ) = I 1*C1-R1*S1 
700  CONTINUE 
800  CONTINUE 
GC  TC  6CC 
9C0  CONTINUE 

IF  (M/SC.NE.M/SC/3*3)  GC  TO  1200 

MR  =  M 

M=M/3 

Alices  (  T’aGPI  /3.0  ) 

Bl=SIN<TWCPI/3.0) 

A2-CCS  (2*0+T ft CPI/3.0) 
B2=SIM2.0*TWCPI/3.0) 

CO  I  100  J=1,M 

ARG=TWGPI+FLCAT (  l J-l  )/SC) /FLOATI MR/ SC) 
C10=CCS ( ARG) 

S1G=SI.N(  ARG) 

Cll=ClG+Al-SiC*Bl 
S11=C10*B1+S1C*A1 
C12  =  C10*A2-S  10*82 
S12=C10*B2+S1C*A2 
C2G=CCS(2.C*ARG) 

S20=SIN( 2.0+ARG) 

C21=C20*A2-S2C*B2 


■ '  f :  -  . 


•  . 


.  •  •. 


■  •  >r  •• 


4  • 

;  ■ 

. 


$2i»C2G*62*S2C-«‘A2 
C22=C20*A1-S2C*61 
S22^C2G*ol *S2Q*A1 
CO  ICCO  K=ivR,  PUCDiMK 
JC=J+K-FP 
J 1= JO+M 
J2= J  L  +  K 
RC  =  X  ( JO ) 

1 0= Y ( JO) 

R  1  =  X ( J 1 ) 

I  1— Y  C Jl) 

R2=X ( J2 ) 

1 2= Y { J  2  ) 

X(  JC}=KC+K1+R2 
Y( J  C  >  =  I  0  > I  1  +  12 

XI  JL  )=R0*C10+I0*S10+R1*C11+  I  l  +  Sl  1+R2+C  12*1  2*  SI  2 

Y  (  Jl  )=I0*C1G-R0*S1QM  1*C11-R1*S11+I2*CI2-R2*S12 
X [ J2)=kC*C20+I0*S20+R1*C21+I 1*S21+R2*C22*I 2*S22 

Y  (  J2)=I  0*C20-«G*$20+I  1+C21-R I+S21-H  2+C22-R2  +  S22 
1000  CONTINUE 

1100  CGNTIMjE 
GO  TC  900 
1200  CGNTIMJE 

IF  (M/SC.NE.M/SC/5+5)  GC  TO  L500 
PR  =  M 
M  =  M/5 

Al=CGS(TWCPI/5.0) 

B1-SIMTWQPI./5.0) 

A2=CGS(  2.0*r,'.CP[/5.Q) 

B2=SIK(2 ,0*TWCPI/5*0) 

A 3»CCS(3.G*Trt CPI/5.0) 

B3=SIM  3«G*TlnCPI/5.Q  ) 

A4«CCS(4.G*Tw0PI/5.0> 

B4=SIM4*G  +  ThCPI/5.0) 

CG  1400  J=1 ,M 

ARG=TaOP  I  AFLOAT (  { J- 1 ) / SC ) /FLOAT ( MR/SC ) 

C  10  =  CCS ( ARG ) 

S10  =  SIM  ARG) 
cn=cio*Ai-sio*ai 
S  11  =  C 10*61+5 1  C  *  A 1 
C 12=C 1C+A2-S 10+B2 
Si2-=C10*b2  +  31C*A2 
C13=C1C*A3-51C*S3 
S13=C10*B3+S1C*A3 
C14=C10*A4-$iC*B4 
Sl4=C10*b4+SlC*A4 
C20=CCS( 2.C+ARG) 

S20=S1M  2.C-ARG) 

C21=C2G*A2-S2C*B2 

S21=C2G*82+S2C*A2 

C22=C2C*A4-S2C*B4 

S22=C20*B4+S2C*A4 

C23=C2Q*Al~S2C*81 


* 


* 


*• 


&  ' 
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S23=C20*81+S2C*A 1 
C24=C20*A3-S2C*83 
324  =  020*63+520^3 
C30=CC${  3.0*ARG) 

S30  =  SIM  3.0*ARC) 

C3UC30*A3-S3C*B3 
S31=C30*B3+S3C*A3 
C32=C3G*Ai-S3C*Bl 
S32=C30*Bl+S3C*Ai 
C33  =  C30*A<*-S3C*64 

53  3  =  0 30*64  +  $3  C  *A4 
C34=C3G*A2-S3C*o2 
$34=C30*62+S3C*A2 
C4C=CCS(4.0*ARG) 

S40=SIN(4.C*ARG) 

C  4 1  =  C  40  *  A4—  S  4  C  *  8  4 

54  1=C4C*64+S4C*A4 
C42=C40*A3-S40*B3 
S42=C4C*B3+S4C*A3 
C43=C4C* A2-54C  *62 
543  =  C4G*l>2  +  :>40*A2 
C44=C4C*A1-S4C*0  1 
S44=C40*8i+S4C*A  1 

DC  1300  K=MR»PRCU,MR 
JG= J+K— RR 
Jl=JG+R 
J 2  =  J  UR, 

J3= J2+R 
J4= J3+R 
RG=X( JO) 

IC=Y{ JO) 

R 1  =  X ( J  1 ) 

1 1  =  Y ( J 1 ) 

R2-X i J  2 ) 

1 2=  Y ( J  2  ) 

R3=X( J  3 ) 

I  3  =  Y { J  3 ) 

R4=X { J4 ) 

1 4=  Y { J  4 ) 

X{JC)=R0+R1+R2+R3+R4 
Y(JG)=I0+I  1+I2+I3+I4 

X  ( Jl)=RC*C  10+IC*S10+R1*C1UI  1*S11+R2*C12+I  2* $ 1 2+R3*C 1 3+ 1  3*S13+ 
.  R  4*C  14+I4*S14 

Y ( J 1 )  =  I C  *C 1G-RC  *  S 1 C  + 1  1 *C 1 1-R  1*  S 1 1  +  1 2  *0 1 2-R2* SI 2+ I 3*C  1 3-R  3*S 1 3  + 
•  14*0  14-R4*S  14 

X  ( J2)=RC*C2C+IQ*S20+R1*C21+  1 1*S2 1+R 2*0 22 +  1 2*S22  +  R3*C23+ 1 3*S23  + 
•R4*C24+I4*S24 

Y  (  J2  )  =  I0*C20-RQ*S20+I  1*C2 1-R 1*S2 1+ I  2*C2  2-R2*S2  2+  I3*C23-R3*S23+ 
.  I4*C24— R4*S24 

X(  J3)=RC*C30+IC*S3C+Rl*C3UI  1*S31+R2*C32+I  2*S32+R3*C33+  I  3* S3  3  + 
.R4*C34+ I4*S34 

Y  {  J3  )=I0*C30-RQ*S3C+I  1*C31-R1*S3  1+  I  2*C32-R2*S32+I  3 *C 33-R3*S  3 3  + 
. I4*C34-R4*S34 


, '  . 

r' 


■ 
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X  l  J4)=RC*C4C+  IC*S4C+R1*C41+I  1*S4  1+R2*C42+  1 2*S42+R3*C43+  I  3*S43+ 
•  H 4^044+ I  4^544 

Y  (j4J  =  IC^ChC~R0^S4C  +  I  1  *C4i-R  1*S4 1  +  1  2*C  42-R2*  S  42+  I  3*C43-R3*S43<- 
.  14*C44-R4*S44 

1300  C(jKT  I  MJt 
1400  CGNT  I NU  t 

GC  TC  1200 
1500  CONTINUE 

IF  (M.LE.SC)  GC  TC  260C 
GC  loCO  J=  2  »  PM AX 
P  =  J 

IF  (M/SC  .EC.M/SC/P*P)  GC  TG  1700 
160C  CONTINUE 

GO  TC  2300 
1700  CONTINUE 
MR*M 
M  =  M/P 

GC  1600  U=ltP 

ARG=TWUP I*FLCAT( U- 1 ) /FLOAT ( P ) 

A(U)=CC5( ARG) 

B ( G ) =S I N ( ARG ) 

1 80C  CONTINUE 

CG  2500  J=  1 » M 

ARG=TaOPI*FLOAT( { J- 1 ) /SC ) / FLOAT ( MR/ SC ) 

CO  2000  U=1.P 

C( U  f  1)  =  C0S( FLOAT ( U-l )* ARG) 

S(Uf  l)-$IN(FLCAT(U-l)*Art.G) 

GC  1900  V=  2  »  P 

JJ=( U-l)*t V-l J-1U-1 J *i V— 1 J /P*P+1 
C(U»V)  =  C{|J»l)*A(JJ)-S(U»l);<tB(JJ) 
SI0,V)=C(U,1)*6{JJ)+S(U,1)*A(JJ) 

1900  CONTINUE 
2000  CONTINUE 

GO  2400  K=MR,PRCD,MR 
CO  2100  U= 1  *  P 
JJ= J+K-MR+ (U-l ) *M 
R  (  U ) =X ( J  J i 
I l U ) =Y I J J ) 

2100  CONTINUE 

CG  2300  U-  1 »  P 
X  T  =  C .  0 

Y  T  =  0 . 0 

DO  2200  V=  1  »  P 

X  T- XT  +  R ( V ) *C ( U  t  V )  +  1 (V) *S ( U , V ) 

YT=YT+I ( V) *C(U»V)-R ( V) *S( U,  V) 

2200  CONTINUE 

J J= J+K-KR+ (U-l )*M 
X(  JJ )=XT 

Y  (  J  J  )  =  Y  T 
2300  CONTINUE 
2400  CONTINUE 
2500  CONTINUE 

GC  TC  1500 


. 


' 
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2600  CONTINUE 

IF  IDIMEN.GT.C)  GC  TC  200 
2700  CONTINUE 
8 E TURN 

2800  COM  IiNUE 

UIMEN-DIMEN+i 

WRITE  ( 6 , 2  9QG  )  DIMEN, N(DIHfcN) 

GO  TC  2700 

2900  FORMAT  ( IX , 2 8HFACTCR I NG  ERROR  IN  DIMENSION, 12, IOH.  N(0IM)=,I5) 
END 


* 

•*-  «.  » 

•  -v" 


'  -  * .  * . 


' 


! 


' 


A-25 


SU3RCL  TINE  GR  MD  FS  IPTS,X,T) 

C  G  E  N  E  R  A  L  RADIX  MULTI  DINERS  I  GRAD  FGUrifcR  SORT 

C 

INTEGER  PTS  (10) 

REAL  X  ( 10 )  ,  T  ( 10 ) 

C 

INTEGER  DIMfcNjDG, II,JJ,PfPMAXfSC,  S  (19),  U  (19) 

INTEGER  A,B,C,OyE,F,G,H,I, J,K,LyM,N,0,Q,R,V,W,AL,BL»CL,DL,EL,FL,GL 

•  t  H  L , IL, JL, RLyLLyRLyNLyCL, gL,RL,VL,WL,AS,rtSyCS,DS,ES,FS,GS,HS,IS, JS 

•yKSyLS,RA,NS,Lo,uS,RSyVSfrtS  j 

EQUIVALENCE  (AS,S(l)),(SS,S(2)),(CS»S(3))y(DS,S(4)),lES,S(b)), 

•  (FS»S(6i)f(GSyS(7))f(HStS(d) ) , ( I S , S ( 9 ) ) , t  J  S »  S ( 1 0 )  ) , ( K  S , S  (  11) ), 

.( LSy S( 12) ) , (MS,S ( 13  )  )  , (NSf S( 14) ) , ( OS , S ( 1 5 ) ) , ( QS , S ( 1 6 ) ) , ( RS , S ( 1 7 ) ) , 
«(VS»S(18) ) y(WS,S(19) ) , (AL,U(1) ) , (  BL  y  U ( 2 )  ) , (CL,U(3) )  , { DL » U ( 4 )  )  ,  (EL, 

•  U  (  5  ) ) ,(FL»U(6) ) , (GL,U(7) )» (HL»U(8) ) , (IL»U(9) ) ,(JL,U( 10) ), (KL,U(11) 
, ) , (LL.L( 12  )  )  , (ML,U( 13) ) , (NL,U( 14) )  , (GL ,U( 15) ) » ( QL,U( 16) ) , (RL,U( 17} 
. ) » ( VL*U ( 18) ) , l WL  ,U(  19)  ) 

C 

P  M  A  X  =  1 9 
C 

00=19 
C I R  EN=  1 
SC=1 

100  CONTINUE 

R=PT S ( U  IMEN  ) 

200  CONTINUE 

IF  (P.LE.1J  GC  TC  5  CO 
CO  300  J  =  2  y  PM AX 
P  =  J 

IF  ( M • EG • M/ P* P  )  GG  TC  400 
300  CONTINUE 
GO  TC  1100 
400  CONTINUE 
U(OG)=R*SC 
S(DG )=R/P*SC 
R  =  R,/P 
Li  C  =  D  C~  1 
GG  TC  200 
50C  CONTINUE 

SC=SC*PTS( DIMEN) 

C IMEN=D IMEN+1 

IF  (PISIOIMEN).GT.O)  GC  TO  100 
IF  (OG.LE.O)  GC  TO  700 
00  6CC  J  = 1 y  D 0 
U  (  J  )  =  1 
S  (  J  )  =  1 

60C  CONTINUE 
7GC  CONTINUE 
J  J  =  0 

CC  8CC  A=1 ,ALyAS 
DC  bCC  B= 1 »  BL , BS 
CC  SCO  C=1,CL,CS 
CC  BCC  C= 1 » OL  ,  DS 


-  ?■  •-  . 
* 


u  •» 


i  - 

:  * 


■ 
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‘ 
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CO 

BCC 

u 

r-» 

tl 

UJ 

»  E  S 

cc 

8CC 

F= 1 ,  F  L 

,  r  S 

CO 

8  CC 

G  —  1  ,  G  L 

» GS 

DC 

BCC 

h=i » HL 

,  H  S 

CC 

80C 

1-1,  IL 

,  IS 

DO 

80C 

J=1  * JL 

,  JS 

CC 

80C 

K=1 *  NL 

,  nS 

CO 

8CC 

L= 1 , LL 

»  L  S 

CC 

BCC 

¥  =  1  ,  M  L 

MVS 

cc 

80  C 

N=1 ,NL 

,  NS 

cc 

BCC 

C=1  ,CL 

,  cs 

cc 

80  C 

v%  —  1 , 0  L 

»GS 

cc 

BCC 

R  =  1 ?  RL 

,RS 

cc 

8CC 

< 

n 

►— 

c 

r 

fVS 

CO 

BCC 

W  =  1  ,  w  L 

,  ws 

i  I  —  A+8+C+Q+E+F+G+H+I  ♦  J  +K  +  L  ♦  M  +N+ 0  +  Q  +-  R+ V  +  W  - 1 8 

JJ=JJ+1 

T ( J J ) -X (  I  l  ) 

800  COM  i  N  U  E 

DC  9C0  J=1,SC 
X ( J ) =T ( J ) 

9C0  CONTINUE 
1C00  CUi\T  IMJE 
RETURN 

1100  CONTINUE 

hRITE  (6,1200  D  I  R  E  N  ♦  P  T  S  ( D I M  EN  ) 

GO  TC  1000 

1200  FORMAT  ( i X , 2 QFF ACT CR I NG  ERROR  IN  DIMENSION, I  2, 10H* 
END 


MI 


»  i  J 


vA 
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FORTRAN  IV 

ONE  DIMENSIONAL  AUTO-CORRELATION  AND  AUTO-POWER  SPECTRA 

CALCULATIONS  USING  DANIEL  WINDOW  AND  FAST  FOURIER  TRANSFORM 

SUBROUTINES.  THE  PROGRAM  FILTERS  THE  DATA  ALSO,  IF  REQUIRED. 

NPT  .  Total  number  of  data  points  digitized  at  an 

interval  of  k  units. 

NOPTS  .  Number  of  points  after  re-digitization,  if 

required,  at  k  or  \  units  apart. 

MR  .  For  Daniel  window  'MR’  is  approximately 

1056  of  'NOPTS'  . 

FMT(l)  _  Defines  FORMAT  of  Input  data  as  (IX, 1814 ,7X) . 

DELT  .  Required  digitizing  interval. 

IX(NPT)  . . .  Vector  to  read  the  input  data. 

ICC  .  Total  number  of  operations  to  be  carried  out. 

ISS  =1  if  auto-correlation  and  spectral  analysis 

are  required  on  unfiltered  data. 

=0  if  required  on  filtered  data. 

IS  =  1  if  using  highpass  wave  number  filter 

coefficients . 

=-l  if  using  lowpass  wave  number  filter 
coefficients 

=0  if  using  bandpass  wave  number  filter 
coefficients . 

LF  ....  Number  of  filter  coefficient  terms. 

FRE1  ....  Low-cut  wave  number  of  the  filter. 


' 


.  •/  3:  C1-  H  1/  c  i: 


■  . 


'  '  •  ' 


i 


■ 


. 
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FRE2  .  High-cut  wave  number  of  the  filter. 

PRE1  =  FRE2  if  using  lowpass  or  highpass  filter 

coefficients . 

F(LP)  .  Vector  to  read  in  the  filter  coefficients. 


READ  IN  THE  FOLLOWING  PARAMETERS 


1. 

NPT, NOPTS  jMR 

according 

to 

FORMAT (5X,10I5) 

2. 

FMT ( 12 ) 

according 

to 

FORMAT ( IX ,18a4 ) 

3. 

DELT 

according 

to 

FORMAT (5X,F10. 5) 

4. 

IX (NPT) 

will  be  read 

in  accordance  to  FMT 

5. 

ICC 

according 

to 

FORMAT( 5X, 1015 ) 

6. 

ISS,IS 

according 

to 

FORMAT (5X,10I5) 

7. 

LF,FRE1 ,FRE2 

according 

to 

FORMAT(5X,I5,2F10. 5) 

8. 

F(LF) 

according 

to 

F0RMAT(1X,4E16.8) 

■  1  ' 

*  V  ■:  . 

* 


■ 


' 


I 


•- 


f  - 
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C 

0 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ONE  DIMENSIONAL  AUTOCORRELATION  AND  AUTU-POWER  SPECTRA  USING 
CANItL  WINDOW  AND  FAST  FOURIER  TRANSFORM  SUBROUTINES. 

THIS  PROGRAM  CALCULATES  AUTO  POWER  DENSITY  SPECTRA  AND  AUTO 
CORRELATION  OF  INPUT  DATA  WITH  VARIABLE  FORMATS 

ALSO  WE  CONVOLVE  THE  INPUT  DATA  WITH  FILTER  COEFFICIENTS  AND  THEN 
IN  TURN  UBTAIN  THE  AUTO  POWER  DENSITY  SPECTRA  AND  AUTO-CORRELATION 

WHEN  FILTER  IS  USED  LET  US  SAY  UF  LENGTH  LF,  THEM  THE  FINAL  USEFUL 
LATA  Ij  REDUCED  BY  LF/2  AT  EACH  END  OF  THE  RECORD. 


DATA  SET  IS  READ  IN 


CuEPF IC IENTS 


VECTOR  IX (4096)  OF  KNOWN  POINTS  NPT. 

ARE  READ  IN  VECTOR  FI200)  OF  KNOWN  TERMS 
IS  THE  TOTAL  NUMBER  OF  DATA  POINTS  AT  DtLT=0.25 
TOTAL  NUMBER  OF  OPERATIONS  TO  BE  CARRIED  OUT. 
NUMBER  OF  FILTER  COEFFICIENT  TERMS. 

LOa  CUT  FREQUENCY  OF  T  HE  FILTER. 

HIGH  CUT  FREQUENCY  UF  THE  FILTER. 

EITHER  HIGH  OR  LOW  PASS  FREQUENCY  Flu  TER  C  0  E  f  F  $ . 

FRE 1-FRE2 

FCR  BAND  PASS  FILTER  WE 
FREQUENCY  VALUES  OF  THE 


F  ILTER 

np  r 

ICC 

LF 

FRE  1 
FRE2 
WHEN 


LF. 

M  I L  E 


USING 


USE 


SPECIFY 

FILTER. 


FRE  I  AND 


FRE  2 


AS  LOW  AND  HIGH  CUT 


IS  =1 
IS  — 1 
IS  =0 
ISS  =i 


^  ^ 


ISS  -=0 


MEANS  USING  HIGH  PASS  FREQUENCY  FILTER  CGEFFS. 
MEANS  USING  LOW  PASS  FREQUENCY  FILTER  CUdf-FS. 
MEANS  USING  BAND  PASS  FREQUENCY  FILTER  CGEFFS. 
AUTO-SPECTRA  AND  AUTO-CORRElATION  ARE  OBTAINED 
OUT  FILTERING. 

AUTO-SPECTRA  AND  AUTO-CORRELATION  ARE  G3TAI 

FILTERING. 


W  l  TH- 


ED 


AFTER 


CELT 
NOP T  S 
L  A  y  LB 


tf.if.Hf. 


THE  DIGITIZING  INTERVAL  IN  SECONDS  OR  MILES 


I  ) 


O  *.Q»U;V 

THE  NUMBER  UF  Pul  NTS  OF  THE  DAT  A  IX ( 

THE  NUMBER  OF  POINTS  AFTER  CONVOLUTION. 
FMT  DEFINES  FORMAT  CF  INPUT  DATA  (  IX  ,  L  8.1  4, 7X  ) 
FREQUENCY  =  J*FP. 

FR  =  FREQUENCY  RESOLUTION. 


REAL  X ( 4096 ) »  F(200)  ,S(4C96)  ,Y(4096) 
INTEGER  IXI1COO) 

INTEGER  Nt  ONE 
DIMENSION  FMT 1 12 ) 

DIMENSION  XE ( 76  8 ) 

EQUIVALENCE  (X,Xt) 


DATA  AND  RESULT  FORMATS 


100  FORMAT  (  8(  16  ,  E).  1 .4)  ) 

115  FORMAT { 1HI »  57X  , 1 5HP0WER  SPECTRUM  /) 

130  FORMAT ( 1H i »50Xt26HAUT0~C OR RELATION  FUNCTION  /) 

INITIAL  PARAMETERS 


ONE  =  1 


' 


. 


■: 


r  o  r  o  n  n  n  o  noocioonnnoo  o  r,  o  r> 


A-30 


LCG2N  =  10 
N  =  2  *  *  L  C  G  2  N 
LC62NP  =  11 
NPRIME  ^  2**LCG2NP 
C 

PI  =  3.141592654 

MK  FCR  DANIEL  WINDOW  IS  CHOSEN  FROM  MR=NOPTS/10 
READ  IN  THE  DATA 

READ (5,1)  NPT  »  NOP  T  S »  MR 
RE AD ( 5 i 3 ) (FMT( J)  ,J  =  i,12) 

READ  (5,9)  UELT 

1  FCR MAT (5X, 1CI5) 

2  FORMAT ( 1HJ, 10X ,7hXMIN  =  , El  1 . 4, 5X , 7HXMAX  =  ,E11.4! 

8  FORMAT  l  1 X  ,  1  8 A4 ) 

9  FORMAT (5X»F10.5) 

READ(5,FMT1  l  IX ( J )  ,  J= 1 , NPT ) 

THIS  PROGRAM  R E- D  I G  I  T  I  ZE Z ES  THE  INPUT  DATA  (WHICH  HAS  BEEN  READ  IN 
AT  DELT  =  0 . 2  5  )  ACCORDING  FJ  TmE  DESIRED  INTERVAL  OF  CELT “0.5, 0.75,  l 
CALL  DIGIT ( IXfDELT ,NOPTS) 


TO  PRINT  THE  INPUT  DATA 
CALL  OUTPUT ( IX ,NGPTS) 

aRITE  THE  INPUT  LATA  EGR  CALCOMP  PLCTTER 

READ  IN  THE  NUMBER  CE  OPERATIONS  TO  BE  CARRIED  OUT 

READ  (5,1)  ICC 
DC  2CC  I K= 1 , I CC 

READ  IN  DATA  EOR  THE  FILTER  SPECIFICATIONS 
RE AD ( 5  ,  I )  I  S  S  ,  IS 

TRANSFER  CONTROL  IF  WE  NEED  AUTO-CORRELATION  AND  POWER  SPECTRA 
ON  UNFILTERED  DATA. 

IF!  ISS.EQ.i)  GO  TO  50 
REAC(5»19)  LF  »  FRE 1 , FRE2 

19  FORMAT ( 5X , I5,2F1C.5) 

READ15, 20)  (  F ( I ) , I~ 1 , LF  ) 

20  FORMAT (  1X,4E16.8) 

ALAMCl-l./FkE  1 
ALAMC2=1./FRE2 
WRITE(o,21)  LF 

21  FORMAT (  1H1,2X  ,24HNUMBER  OF  FILTER  TERMS  =,I5) 

TO  WRITE  THE  FILTER  FREQ.,  TITLE  ETC. 

CALL  L  H  B  US,  FRE1  ,FRE2  ,  ALAMD1 ,  ALAM02  ) 


■  * 

' 


' 


. 


k 
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TO  PRIM  THE  OUTPUT  Of  FILTERED  DATA 

IT  WRITES  CUT  THE  FILTER  CCEFFS.  AND  THE  FILTERED  DATA. 
CALL  F I LUU T ( I  X , NUPT S # F , LF , X  ,  LA ) 

TO  CUT  OFF  HaLF  THE  END  EFFECTS  GF  THE  FILTERED  DATA 

CALL  ADJUST { X  ,NCPTS  ,LF* LA} 

NN=NCPT  S 


SUBRUUT I NE  DC  OUT  TAKES  OUT  THE  D.C.  VALUE  AND  WRITES  OUT  THE  DATA 
CALL  DC  OUT (  X  » NN , I S S ) 

MULTIPLY  ti Y  A  FACTOR  10.0  BECAUSE  IN  PUNCHING  THE  CARDS  FROM  DIGIT 
ORIGINAL  DATA  THE  LAST  DIGIT  (I.t.  OF  FACTOR  10)  aAS  OMITED. 

DG  10  1=1, NN 
X  t I ) =X ( I )*10.C 
10  CONTINUE 

REMOVE  12  DATA  POINTS  FROM  EACH  END  TO  AVOID  END  EFFECTS 
OF  THE  FILTER. 

DO  22  1=1, NN 
11=1+12 

IFl I .GT. INN-24) )  GO  TC  22 
X(  1  )=X(  ID 
22  CONTINUE 
NN=NN-24 


TO  WRITE  THE  FILTERED  DATA  FOR  CALCQMP  PLOTTER 
WRITt(l)  XE 
XN  =  NN 

CALL  MAXMIN  ( X , XM I N , X MAX , NN ) 

WRITE (6, 2)  XM  IN,  XMAX 
GO  TC  57 

CONTROL  IS  TKANSFERED  HERE  FOR  AUT  O-CORREL  AT  I  ON  AND  POWER  SPECTRA 

CN  UNFILTERED  DATA 
50  CONTINUE 

DG  3  1=1, N OPTS 
X ( I ) =F  LCAT (  IX  (  I  )  ) 

3  CONTINUE 


SIBRCUTINE  DC  OUT  TAKES  OUT  THE  D.C.  VALUE  AND  WRITES  OUT  THE  DATA 

CALL  DC  GUT (X,NCPTS,ISS) 

NN  =  NCPT  S 

C  MULTIPLY  BY  A  FACTOR  10.0  BECAUSE  IN  PUNCHING  THE  CARDS  FROM 

C  ORIGINAL  DATA  THE  LAST  DIGIT  (I.E.  OF  FAC 7 Ok  10)  WAS  UNITED. 

DO  11  1=1, NN 

xm=x(  i >*io.o 

11  CONTINUE 
C 


t  ' 


‘ 


1 


*■ 


. 

* 


. 


. 
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C  WRITE  THE  D  «L  REMOVED  DATA  FOR  CALCOMP  PLOTTER 

C 

WRITE(l)  XE 
XN=NN 

CALL  MiAXMlN  {  X ,  XM I  N  ,  XMAX  ,  NN  ) 

WRITE (6,2)  XM  IN, XMAX 
57  NN1=NN+ 1 
NN2=NN*2 
C 

CALL  ZERO  ( X  ,NN1 rNPRIME) 

COMPUTE  THE  AUTG-CQRR ELAT  I ONS  CX(T) 


CALL  ZERO  (Y»1,N PRIME) 

CALL  ZEROtSf lrNPRIME) 

CALL  AR  ID  FT  ( NPR I  ME , X , Y , S ) 
CALL  POWER  (N PRIME, X,Y) 


TO  OBTAIN  INVERSE  FOURIER  TRANSFORM, 

X(J)  IS  REAL,  SO  WE  NEED  NOT  TAKE  COMPLEX  CONJUGATE, 
WE  PRCCEED  DIRECT  TO  OBTAIN  THE  FOURIER  TRANSFORMS. 


CALL  ZERO ( S , I ,NPR IME ) 

CALL  AR  ID  FT  ( NPR1 ME , X , Y , S ) 
CALL  SCALt  ( N,X  , FLOAT (NPRIME)  ) 
CALL  DAN  FAC  (NN,X) 

PRINT  OUT  AUTOCORRELATIONS 


WRITE  (6,130) 

WRITE  (6,100)  ((J,  X(J)),  J=GNE,N) 

C  WRITE  DATA  FOR  CALCOMP  PLOTTER 

CALL  MAXMIN  t  X , XM I N , X M A X , N N ) 

W R X  T £ ( 6 , 2 )  XM IN , XMAX 

C 

CALL  DANLAG ( NN, MR , X ) 

CALL  LAGS  (NN,X) 

C  COMPUTE  THE  POWER  SPECTRUM 

C 

CALL  ZERO  ( Y  ,  I , N N 2 ) 

CALL  ZERO ( S ,  I ,  NN2 ) 

CALL  Ak  ID  FT  (NN2,X,Y,S) 

C 

C  OUTPUT  T He  POWER  SPECTRUM  FUNCTION 

C 

C  MULTIPY  POWER  3Y  A  FACTOR  DELT 

CALL  FACTOR  ( X • NN , CEL  T ) 

WRITE  (6,115) 

WRITE  (6,100)  ((J,  X(J)),  J=ONE , NN ) 

C 

CO  4  J=CNE , NN 

IF(X( J) .EQ.C.O)  GO  TO  4 

X ( J  )  -ALCG10 1 ABS ( X ( J )  )  ) 


and 


i  - 


' 


ri  o 


A-33 


4  CONTINUE 

WRITE  DATA  PCR  CALCCMP  PLOTTER 
WRITEU)  XE 

CALL  MAXMIN  ( X  »  X  M  I N  »  X  iv  A  X  »  N  N  ) 
WRI  TE  (o  ,  2)  XMN,  XMAX 
200  CONTINUE 
END  FILE  I 
STOP 
END 


' 


o  o 
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SCBRLUf  if'Jt  DIGIT  (  I  X  »  D ELT  » NOPT  S ) 

INTEGER  IX(IC) 

C 

C  THIS  PROGRAM  R E~ D I G I T I Z £Z ES  THE  INPUT  DATA  (WHICH  HAS  BEEN  READ  I N 

AT  DELT=0.25)  ACCORDING  TU  THE  DESIRED  INTERVAL  OF  DEL T  =  0 . 5 , 0 . 75 , 1 

IFIDELT .£0*0.25)  GO  TO  AO 
IFlDELT.EC.l.O)  GO  TO  45 
I F { D EL T • EG • 0 • 7 5 )  GO  TO  46 
DC  33  J=1 fNUPTS 
J  1=2* J- 1 

33  IX(J)=IX{J1) 

GC  TC  40 

46  DG  34  J  =  1 »  NOP  TS 
J  1  =  3* J-2 

34  IX(J)=IXIJ1) 

GO  TC  40 

45  00  4  J=1,NCPTS 
J l=4*J-3 
4  1X(J)=IX(J1) 

40  CONTINUE 
RETURN 
END 


- 


. 


. 


SUBROUTINE  OUTPUT (IX* NCPTS ) 
INTEGER  IX(1C) 

TO  PRINT  OUT  THE  UATA 
WRITE  (6,17) 

17  FORMAT  1 1HL  » 59X , 13HINPUT  DATA  IX) 
W  R I  T  E  l  6 , 1 8  ) 

IS  FORMAT  t 1HT , 59X , 13H *************) 
WRITE  (6,29)  (  IX ( J  )  ,  J-l,NOPTS) 

29  FCJRMAU30X,  1814, 7X) 

RETURN 

END 


* 


' 


•  -  #  * 


ooo  ooo  ooooor. 
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SUBROUTINE  L  H  6  (  I  S  ,  FRE  1 ,  FRE2 ,  Al.  AiMDl  ,  AL AMD2  ) 

IT  WRITES  GUT  LG W ,  HIGH,  OR  BAND  BASS  FILTER  TITLES  AS  REQUIRED* 

I F (  I S • EG  *  L  }  GC  TC  22 
I F (  IS  ,EQ.O)  GC  TC  23 


PRIM  FCR  LOW  PASS  FREQUENCY  FILTER 


WRITE (6,60)  FRE2 

60  FORMAT  {  1HJ  ,  2X  ,  29HHIGH  CUT  FREQUENCY  (IN  CPM)  =,F10.5) 

WRITE(6,61)  ALAMO 2 

61  FORMAT (  1HJ ,2X  ,33HHER£  THE  WAVELENGTHS  SMALLER  THAN  , F5 . 1 , IX, 17KMI L 
1ES  ARE  CUT  OFF) 

WRITE (6, 62) 

62  FCRMATt 1HL,35X,6CHL0W  PASS  FREQUENCY  OR  LOW  CUT  WAVELENGTH  FILTER 
1CCEFFIC  IENTS) 

WRITE(6,63) 


63  FORMAT ( lhT ,  3  B  X , 6 CH* ********** 


£  * £*  **  #  £  #*  5r  *  #  £  t~  & **  £  **  #  &  £  &  £  $  *  afc  * 


GC  TC  41 


PRINT  FOR  HIGH  PASS  FREQUENCY  FILTER 


22  WRITE  l  6, 70)  FRE 1 

70  FORMAT  (  1H  J  ,  2X  ,  28HLCW-  CUT  FREQUENCY  (IN  CPM)  =,F10.B) 

WRI TE ( 6 , 71 )  ALAMC1 

71  FORMAT l 1HJ,2X,33HHERE  THE  WAVELENGTHS  GREATER  THAN  »F5*1»1X,17HMIL 
1ES  ARE  CUT  OFF) 

WRITE(o,72) 

72  FORMAT ( 1HL,34X,62HHIGH  PASS  FREQUENCY  OR  HIGH  CUT  WAVELENGTH  FI  LIE 
1R  COEFFICIENTS) 

WRI TE(6,73) 

73  FORMAT  (  1HT  ,  3‘tX  , 

]^  ****** $ * ft ) 

GC  TC  41 


PRINT  FOR  BAND  PASS  FREQUENCY  FILTER 


23  WRI T E ( 6 , 70 )  FRE I 
WRITE(6,60)  FKE2 
WR  I  T  E { 6  ,  d  I  )  ALAMD2, ALAMD1 

81  FORMAT  (  1HJ  ,2X  ,33HHERE  ONLY  THE  WAVELENGTHS  B  ETWEEN  ,  Ff>.  1  f  1  X  ,  9KMI  LES 
1  AND*  F5 . 1 , IX , 18HM ILLS  ARE  RETAINED) 

W  R I  T  E  I  6 , 8  2  ) 

82  FCRMATt 1HE, BOX, 29H8ANO  PASS  FILTER  COEFFICIENTS)' 

WRITE(6,83) 


83  FORMAT (  IHT, BOX  ,  29H******************* 

41  CONTINUE 


RETURN 

END 


...» 

*  '*  i 


3  ... 


!'  ' 


. 

-  $  j 


. 
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SUbRLUT INE  F I  LOUT ( I  X, NOPTS, F, LF  » X  »  L A ) 

INTEGER.  IX(iC) 

REAL  F  (  1 Q  )  »  X  (  1 0  ) 

IT  WRITES  OUT  ThE  FILTER  CGEFFS.  AND  THE  FILTERED  DATA. 

WR I T  E ( o , 24 )  ( F (  l )  »  1  =  1,  LF) 

24  FCRMAT(lX,aE16.d) 

CALL  CCNVCL (  I X  ,  NOPT S , F » LF , X , L A ) 

WRITb(6,2b)  LA 

2b  FORMAT ( 1HL , bIX ,26HNUMBER  OF  FILTERED  TERMS  =  ,Ib) 

WRITE (6, 26) 

26  FORMAT ( IX, 54X , 24hCUTPU T  (FILTERED)  DATA  X) 

WRI  TE(6,27) 

27  FORMAT  (  lHT,54X,24H******JS!#:iC!ft  **************) 

WRI T t ( 6 , 39 )  (X(  I  )  ,1=1 , LA ) 

39  FORMAT ( 12X , 16F6. G, 7X ) 

RETURN 

END 


■ 


' 


. 


. 
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SUBROUTINE  CCNVGL  ( I  X , LX , F , LF , X , L A ) 
REAL  X ( 10) ,  F ( 1 0 ) 

INTEbEk  IX11C) 

LA=LX+LF-1 
CO  1  1=1, LA 

x(  n=c.o 

1  CENT  1NUE 

CC  2  1=1, LX 
CC  2  J= 1 , LF 
K= I +  J-  1 

2  X ( K ) =F  LC AT (  I X {  I )  )*F( J)+X(K) 

RETURN 

END 


i 


n  r- 
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SUBROUTINE  ADJUST  (  X  ,  NGR TS t LF , L A J 
REAL  X(10) 

C 

IT  CUTS  OFF  HALF  THE  END  EFFECTS  OF  THE  FILTERED  DATA 

L  F  i  =  LF/2 
LF2=N0PTS+LF1+1 
DC  42  1  =  1,  LF1 

42  xm=o.o 

DO  43  I  =  LF  2 , L  A 

43  X(Ii=C.O 
CO  44  1  =  1 » NQPTS 
J  =  LF  1  +  I 
XII  )=X( J) 

44  CONTINUE 
RETURN 
END 


*  ' 


. 


SUBROUTINE  ZERO  (X,K,L) 

RE4L  X(10) 

THIS  SETS  THE  VECJOR  X  TO  ZERO 

LG  I  I - K  » L 

X(II=0.0 

COM  I  RUE 

RETURN 

ENG 


>  =  --■  i : 


. 


. 


■ 


■ 
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StdK'JL T  I N E  POWER  (N#XfY) 

WE  CALCULATE  POWER  AND  STORE  BACK  IN  X 

REAL  X { 10 ) i Y I  10 ) 

REAL  P 
CO  1  J= 1  *  N 
Psj(lJ)«2  +  Y(J  )  **2 
XiJ)=P 
Y ( J ) =C . 0 
1  CONTINUE 
RETURN 
END 


o  o 
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SCBRCUT  INE  CAN  FAC  (N,X) 

REAL  X (10) 

IT  CIV  IDES  THE  AUT  G-CCRRELAT I  ON  BY  A  FACTOR  OF  N  IN  THE  CASE 
CF  DAM  El  WINDOW. 

DC  1  1*1, N 
XID-XII)  /  FLOAT!  N) 

1  CONTINUE 
RETURN 
END 


1 
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S  U  i3  R  C  0  T  I N  E  CG  QUT(X,NCP1S»16S) 
REAL  X ( 1 0  ) 

S  x= C  . 

DC  3  J=1,NCPTS 
3  SX=SX+X(J) 

SX  =  SX/IFLCAT  (iNOPTS)  ) 


DC  4  J=1,NLPTS 
4  XiJ)=X(J)-SX 

I F  (  ISS.EQ.G)  GG  T(J  1 


WRITE  (6,16) 

16  FORMAT  (  lHl»42X»4t)HIiNPUT  VALUES  X(I)  WITH  AVERAGE  (D.C 


WRITE (6, 17) 
17  FORMAT  t 1HT, 
GG  TO  2 
1  WRITE(6»6) 

6  FORMAT (  1H1 , 
WRITEto, 17) 


£  v  if  vi*  *v£if4f 


42X ,46HF I LTERED  DATA  X(I)  WITH  AVERAGE  (D.C 


2  wRITE  (6,5)  ( X( J ) , J=1 , NCPTS ) 
5  FORMAT (  12X, 18F6. C, 7X) 


RETURN 


END 


)  REMOVED) 

•fr  if  ❖  £  if  if  if  £  ) 

)  REMOVED) 


••  •-.  i  •  4  ~ 

,  -  - 

■ '  - 


‘ 


. 
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SL3ROJT  INE 


MAX  MIN  (XtAMINt AMAX,N) 
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TO  FIND  THE  MAXIMUM  AND  MINIMUM  ELEMENT  iN  THE  VECTOR  XII) 
REAL  X(10) 

TO  FINL  THE  MINIMUM  ELEMENT 

AM  I N=X I  1 ) 

CC  1C  1=  1  *  N 

IF  I  XI  I )  .LT. AM  IN)  AMIN  =  X(I) 

10  CONTINUE 

C  TO  FINL  THE  MAXIMUM  ELEMENT 

C 

AMAX  =  X {  1 ) 

DC  20  1=1, N 

IF(X( II .GT.AMAX)  AMAX=X(I) 

20  CONTINUE 
RETURN 
END 


‘ 

. 


. 


' 


' 

* 
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SUBROUTINE  FACTOR  I  X»  NOPTS  r  DElT  ) 
REAL  X ( 10} 


A-45 


IT  AUGUSTS  FOR  THE  FACTOR  DELT  WHICH  CORES  IN  WHEN  WE  APPROX  I  RAT 
POWER  FROM  INTEGRAL  TO  SUMMATION  FORM. 

00  .!  I=Iti\CPTS 
X(I)^X( I)*OELT 
I  CONTINUE 
RETURN 
END 


.1  •  -  - 


1 


■ 
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SUBRGO  T  I ME  LAGS  ( M ,  C  ) 

C 

C  7 He  AlTC-CORRcLATICNS  ARE  STORED  IN 

C  cm,  T=1,2,...,M+1.  WHERE  M  IS  A  POWER  OF  2. 

C  IN  ORDER  TO  OSE  THE  ONE  DIMENSIONAL  FAST  FOURIER  PROGRAM, 

C  IT  IS  NECESSARY  TO  HAVE  THE  NEGATIVE  LAGS  AS  WELL.  SINCE  THE 

C  AUTO -CORRELATION  FUNCTION  IS  AN  EVEN  FUNCTION.  AND  BECAUSE  OF  THE 

C  CYCLICAL  ASPECT  OF  THE  FAST  FOURIER  TRANSFORM,  THE  NEGATIVE  LAGS 

C  CAN  b£  STORED  IN  CIT),  T=M+2 , M+3 , . . . , 2*M.  IN  REVERSE  ORDER. 

c  ; 

REAL  C  (10) 

INTEGER  M ,  T*C  M  ,  J,  JM 
C 

TnG  y  =  2*M 
DO  10  J=2,M 

JR  =  T w G  M  —  J  2 
C( JM)  =  Cl J) 

10  CONTINUE 
R  E  T  U  R  N 
END 


• '  :  ■' 


.  - 


'  ■ 
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v 
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SUBROUTINE  DANLAG  (  K »  iv ,  C  i 

c 

MODIFIES  THE  AUTO-CGRRELAT I  CMS  C(T)  bY  THE  DAM  I  ELL  LAG 
THE  RESULTS  ARE  STOKED  IN  C(T)»  T=i*2»...»N+l. 

HEAL  C  ( 10 ) t  PI  BY  M,  FACTOR 
INTEGER  N,  M,  J 
C 

PI  BY  M  =  3.1A1592654/FLOAT(M> 

DO  10  J-=  2 » N 

FACTOR  =  PI  8Y  M  *■  FLOAT  (J-i) 

C(J)  -  C ( J )  *  S IN  t  FACTOR  ) /FACTOR 
10  CONTINUE 
CtM+i)  -  0.0 
RETURN 
END 


WINDOW . 


» 
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SUBROUTINE  COPY  (  A,  FIRST,  LAST,  STEPS,  6  ) 

r 

V- 

C  COPIES  THE  VECTOR  A  INTO  THE  VECTOR  B. 

C  THE  ELEMENTS  CF  A  WHICH  ARE  COPIED  INTO  3  BEGIN  AT  A( FIRST) 

C  AND  GO  TO  A ( L  AS  I  )  IN  STEPS  CF  'STEPS'. 

C  THE  ELEMENTS  FRCP  A  ARE  STORED  CONSECUTIVELY  IN  B 

C  I.E.  B  (  I  )  ,  1-1,2,...  »N  WHERE  N  =  (LAST  -  S=  IRST) /STEPS 

C 

C  IN  THE  CASE  WHERE  THE  REMAINDER  IN  (LAST  -  FIRSTI/STEPS  IS  MOT 

C  ZERO,  THE  PROGRAM  WILL  STUP  SHORT  OF  THE  ELEMENT  A { LAST ) . 

C  I.E.  LAST  IS  AN  UPPER  bGUND,  NUT  A  LEAST  UPPER  BOUND 

C 

REAL  A  (10),  B  (10) 

INTEGER  FIRST,  LAST,  STEPS,  I,  J 

C 

I  =  c 

DG  10  J  =  F  I RS  T  ,  LAST,  STEPS 
I  -  I  +  1 
BID  =  A  {  J  ) 

10  CONTINUE 
RETURN 
END 


«* 


non 
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SUBROUTINE  SCALE  (N,X,SC) 

C 

REAL  X  ( 10) ,  SC 
INTEGER  N 

C 

REAL  I 

RE  SCALES  ( 13  V  DIVISION)  THE  ARRAY  X  BY  THE  FACTOR  SC  FGk  J=I,...,N. 

1-1*0 /SC 
CO  ICC  J— i » N 
X( J)=X{ J)*T 
100  CONTINUE 
RETURN 
END 


APPENDIX  B 
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Filter  Coefficients 

The  theory  of  box  type  filters  used  in  the  present 
study  have  been  dealt  in  detail  in  GAG  report  9,  1955s  and 
the  bandpass  filter  Fortran  program  based  on  the  same 
principles  was  published  by  Robinson  (1966).  In  this 
filter  theory,  the  transfer  function  is  assumed  to  be  an 
even  function  about  the  origin  and  consists  of  a  unit  step 
at  the  cut-off  wave  number.  For  a  symmetric  and  zero  phase 
shift  filter,  the  transfer  function  is: 


H(ki) 


Trnki 

kNYQ 


(B-l) 


2  TT 

Where  XMvn  =  t —  is  the  Nyquist  wavelength  for  the 

NYQ 


2  TT 

wave  number  k,T„„  and  Ai  =  —  is  the  cut  off  wave- 

ini  i  y  k  i 

length  for  the  given  wave  number  ki .  (2M+1)  are 

the  number  of  terms  in  the  filter  operator. 

The  coefficients  for  various  filters  used,  are  obtained 
from  the  following  expressions. 


Low-pass  filter  coefficients 


F 


0 


F 


n 


k  i 

kNYQ 

2 

nir 


niTki 

kNYQ 


( B-2 ) 

,M 


sin 


for  n=l,2. 


»  •  9  ( 


s 


1 


■ 
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High-pass  filter  coefficients: 


F  = 

0 


F  = 
n 


kNYQ  CkNYQ"k,) 


-2  .  nuk 

H7  sln  — 


NYQ 


/ 


(B-3) 


for  n=l , 2 , . . . . ,M 


Band-pass  filter  coefficients: 


F^  = 


 k2-kj 


0  k 


F  = 
n 


NYQ 


2  .  nTrk2 

-  sin^ 


2  .  niTki 

-  sin^ 


(B-4) 


for  n=l , 2 , . . . . ,M 


Where  ki  and  k2  are  the  two  different  high  and  low  cut¬ 
off  wave  numbers. 

From  the  filter  coefficients,  one  can  study  the 
impulse  response  and  the  transfer  function  of  the  filters. 
Two  dimensional  impulse  response  of  the  filter  is  obtained 
by  convolving  the  filter  operator  first  along  the  rows  and 
then  a  similar  operation  along  the  columns  of  a  matrix  which 
has  a  unit  spike  at  the  centre  and  zero's  all  around  it. 

The  amplitude  transfer  function  is  obtained  by  taking  the 
Fourier  transform  of  the  impulse  response  function  and  can 
be  represented  in  decibels  as  follows: 


■ 


sartocje 

- 


B-3 


transfer 

20 


function  in  decibels  (K  ,K  )  = 

x5  y 

(amplitude  transfer  function  (K  , 

- — 

max.  amplitude  in  (Kx,K  )  space 


If  it  is  desired  to  modify  the  response  of  the  filter,  a 
filter  coefficient  may  be  obtained  by  modifying  the 
transfer  function  and  deriving  a  new  impulse  response. 

Fortran  IV  programs  for  calculating  the  various 
filter  coefficient,  the  impulse  response  and  transfer  func¬ 
tion,  and  the  convolution  of  two  dimensional  data  are 


listed  as  follows: 


- 


/ 

' 


. 
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IMPULSE  RESPONSE  2  -  20  MILES  BAND  PASS  AX=0.5MILE 


Figure  B-l  (a) 

Impulse  response  of  a  two-dimensional 
bandpass  filter  (2-20  miles) 


Figure  B-l  (b) 

NE  quadrant  of  a  transfer  function 
for  the  case  of  figure  B-l  (a) 


» :■ 
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IMPULSE  RESPONSE  HIGH  CUT  FILTER  ( 10  miles )  AX  =  0.5MILE 


Figure  B-2  (a) 

Impulse  response  of  a  two-dimensional  high-cut  filter 
(which  cuts  off  wavelengths  longer  than  10  miles) 


Figure  B-2  (b) 

NE  quadrant  of  a  transfer  function 
for  the  case  of  figure  B-2  (a) 
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107*00 '  105°04' 


Figure  B-3 

Bandpass  filtered  magnetic  map 
(2-20  mile  wavelengths) 
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59*30 


59*30' 


:  c'N  x-°/=’  z7 

58*45  I  ■  ■  ■■■  »  ■■■»»■<■  » 


107*00 


58*45' 
105*32' 


Figure  B-4 

Bandpass  filtered  gravity  map 
(2-20  mile  wavelengths) 
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FORTRAN  IV 


PROGRAM  TO  OBTAIN  THE  FILTER  COEFFICIENTS  FOR  HIGHPASS, 
LOWPASS  OR  BANDPASS  WAVE  NUMBERS  USING  A  BOX  CAR  FUNCTION. 


IC 

N 

DELT  . . . 
FL 


•  •  • 


Number  of  different  parameter  sets 

One-half  length  of  the  symmetrical  filter  plus 

centre  point 

Digital  interval  of  the  field  data 
Lower  wave  number 


FH  ....  Higher  wave  number 

IS-1  and  ISS^2  ....  if  only  highpass  filter  coefficients 

are  required 

IS=-1  and  ISS^2....  if  only  lowpass  filter  coefficients  are 

required 

IS=0  and  ISS^2  ....  if  only  bandpass  filter  coefficients 

are  required 

IS=0  and  ISS=2  ....  if  filter  coefficients  for,  all,  lowpass, 

highpass  and  bandpass  are  required. 


READ  IN  THE  FOLLOWING  PARAMETERS 


1. 

IC 

according 

to 

FORMAT ( 5X, 215 ) 

2. 

N,DELT,FL,FH 

according 

to 

FORMAT(5X,I5,3F10.5) 

3. 

IS,ISS 

according 

to 

FORMAT ( 5X , 218 ) . 

.  ..  ...  •  ,  -  '  ,  '•  • 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

K* 

c 

c 

c 

c 

c 

c 


c 


c 

c 


c 

c 

c 


PROGRAM  10  OBTAIN  THE  FILTER  COEFFICIENTS  FOR  HIGH  PASS  OR  LOW  PASS 
OR  BAND  PASS  FREQUENCIES  OR  TO  OBTAIN  THE  COEFFS.  OF  ALL  THAI  IS 
HIGH*  LOW  AND  BAND  PASS  FILTERS. 


I S=  1  AND 
I S  =  -  1  AND 
I  S=  0  ANL 
I S-  I  AND 


ISS.NE.2 
I  S  S  .  N  E  .  2 
ISS.NE.2 
I  S S=  2 


INDICATES  THAT  ONLY  H I bH  PASS  FILTER 
COEFFICIENTS  ARE  REQUIRED. 

INDICATES  THAT  ONLY  LOW  PASS  FILTER 
COEFFICIENTS  ARE  REQUIRED. 

INDICATES  THAT  ONLY  BAND  PASS  FILTER 
COEFFICIENTS  ARE  REQUIRED. 

INCICATES  THAT  ALL  FILTER  COEFFICIENTS  ARE 
REQUIRED. 


IC  [j  THE  NUMBER  CF  DATA  SETS  TG  BE  READ  IN. 


FNYQ  =  NYQUIST  FREQUENCY  (IN  CYCLES  PER  SECOND  OR  CYCLES  PEk  MILE) 


N  =  LENGTH  OF  THE  CNE  LCBE  OF  SYMMETRICAL  FILTER  PLUS  ONE  CENTER 
PC  1  NT , 

FILT  =  THE  OUTPUT  FILTER  OF  LENGTH  N. 

FL  =  THE  LCrtER  FREQUENCY  (UNITS  ARE  IN  CYCLES  PER  SECONDS 
OR  CYCLES  PER  MILE) 

FH  =  TFE  HIGHER  FREQUENCY  (UNITS  ARE  IN  CYCLES  PER  SECONDS 
OR  CYCLES  PER  MILE) 

DELT  =  THE  OITIZED  INTERVAL  BETWEEN  DATA  POINTS  IN  TIME  OR  SPACE 
UNITS  (E.G  :  SECONDS  OR  MILES  ETC  ) 


DIMENSION  FILT(IOI) 

R  EAD ( 5 , 2 )  IC 

DC  BOG  L=  I  *  I C 
R  E AO ( 5  » i )  NfDELT  »FL*FH 

1  FORMAT ( 5X, I  5, 3F1C. 5) 

RE AD  (  5  »  2  )  IS, I S  S 

2  FORMAT ( 5X, 215  ) 

M=2*N-L 
M 1  =  M-  1 
N1=N - 1 
F  N-N 

FNYQ=1.0/(2.0*GELT) 

CALCULATING  HIGh  PASS  OR  LOW  CUT  FILTER  COEFFICIENTS. 

IF(  Is.NE.I  )  GO  TO  LOO 

CALL  HGHPAS (N, DELT, FL, FILT) 

TO  OBTAIN  COMPLETE  SET  OF  SYMMETRICAL  FILTER  COEFFICIENTS. 

FILT (M)=FILT (N) 

CO  25  I  =  N , M 1 
1 1  =  I  —  M 

FILT(  I  )=FILT( I  I ) 


*  *  4 


* 

*  -  t .  * »  .  ■ 


.  >  Hi 


' 


'  '  1 V  • 

. 


» 


^  I 


5 


ononrinr'or'o  ooo 


E-l  0 


2b  CONTINUE 

CC  2b  1=1, M 
I  1=M-I+1 

F  ILTU  )=FILT  (  II ) 

2  o  CONTINUE 

TC  WRITE  THE  HIGH  PASS  FILTER  COEFFICIENTS. 


WKITE(b,3) 

3  FORMAT { 1 H 1 ) 

w  R  I  T  E  (  b  ,  4  }  N 

4  FORMAT ( 1HL , 2X ,63HLENGTH  OF  ONE  LuBE  PLUS  CENTER  POINT 

I  -  » I  5  ) 

WR I T  t ( b , 5 )  CELT 

5  FORMAT ( 1HJ f2X #63HDIG IT IZING  INTERVAL  DELI  I  IN  TIME  OR  SPACE  UNITS) 

i  =  , F 10 . 5  ) 

WRITE(b,6)  FNVg 

b  FORMAT  I 1HJ»2X»63HNYUUI$T  FREQUENCY  FNYQ  (IN  CYCLES  PER  TIME  OR  SPA 
ICE  UMTS)  =  , F 10 • b  ) 

W  R  I  T  E  (  6  »  7  )  FL 

7  FORMAT!  1H.J,2X  ,63HLCW  CUT  FILTER  FREQUENCY  (IN  CYCLES  PER  TIME  OR  S 
1PACE  UNITS)  =»F 10 • 5 ) 

WR I T  E ( b  »  9 )  M 

9  FORMAT!  1HK,34X,  59HCOMPLETE  S  tT  OF  HIGH  PASS  FILTER  COEFFICIENTS  OF 
1  LENGTH  M  =,15) 

WRITE (o, 10 ) 

10  FORMAT (  1HS  ,  34 X , b4H =============================================== = 

1  =  ===^  ===  =  =  =  =  =  =  =  ) 

w  R 1  T  E  (  6  , 11)  (FILTH  ),  1  =  1,  M) 

11  FORMAT i IX, 8E16.8) 

W  R  I  7  E  !  b  ,  12) 


12 


FORMAT  (  1HJ,  10X,  D  2  H  ************  £  <:  * 

1  £  $  *  £  ❖  4  ^  *  ❖  $  *  $  $  #  £  *  *  $  $  *  ?•  *  =£*  $  S  *  $  #  *  A-  ❖  £ 


X  X  X  -X  X  a-  X  X  V/  X  J-  -.<»  v'  X  X 

v  Y1  ^  ^  /,»  •;»  ^ 

X  X  X  X  V*  Vr  X  X  X  X  X  X  •>. 

V  r  r  '•*  'r  -v  4W  ¥  'i*  ■¥>  4'  rv-  *y»  -V 


a-  V'  J'  >»-  a-  XX  J-  *, 
X'  V  -r*  *i~  V  •*  -i-  *Y* 

X  XXV'A'X  -.tr  X  X  X  .« 
*»'  >-,■>  V  x  -i-  -V-  'C*  ■■*«** 


X 

r 


CHECK  IF  i SS=2  ,  THEN  WE  NEED  TO  PASS  THE  CONTROL  TO  CALCULATE  THE 
LOW  PAbS  FILTER  COEFFICIENTS  OTHERWISE  WE  STOP. 


IF!  1SS.EC.2)  GO  TC  101 
GO  TC  200 

CALCULATING  LOW  PASS  OR  HIGH  CUT  FILTER  COEFF I C I E NT S . 

100  IFlIS.NE.(-l))  GO  TG  102 

101  CALL  LCwPAS  IN  ,DLLT , FH ,FILT , IS, ISS) 

TO  OBTAIN  COMPLETE  SET  OF  SYMMETRICAL  FILTER  COEFFICIENTS. 

F1LT!M=FILT(N) 

DC  3b  I  =  N  »  M 1 
I  1=  I  -M 

FIlT!  I  )  =F  I  LT  (  ID 
35  CONTINUE 

CC  3fc  1=1, N1 


r- .. 


. 


■  i  -•  wi\ •- '  ti  ■  I 


-  •  * 


noo  oonnoooooo  ooo 
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I 1-M- 1+ 1 

F  ILT  (  I  )=FILT(  ID 
36  COi\T  I N  U  E 

TG  WHITE  THE  LGWPASS  FILTER  COEFFICIENTS* 

IF(  lS.fcQ.l.AND.  ISS.EQ.2)  GO  TO  125 
IF(FH.LT. (l./(UELT*FN> ) )  GO  TO  125 
WRI TE ( 6 , 3 ) 

125  wRITE(6,4)  N  i 

wRITE(c»15)  CELT 

15  FURMaTI  1HJ,2X  ,  o3hD I G I T I  ZING  INTERVAL  CELT  (IN  TIME  OR  SPACE  UNITS) 
1  =  »  F 10 . 5  ) 

WRITt(fe»fc)  F  N 
WRITb(6,17)  FF 

17  FORMAT { lhJ»2X  ,  63  HH IGH  CUT  FILTER  FREQUENCY  (IN  CYCLES  PER  TIME  OR 
1  SPACE  UMTS)  -=  »  F  10  •  5  ) 

WRITE(6,i9)  M 

19  FORMAT ( lriK,34X,58HC0MPLETE  SET  OF  LOW  PASS  FILTER  COEFFICIENTS  OF 
1  LENGTH  M  =  ,I5) 

WRITE(6,2C) 

20  FORMAT l  iHS»34X,  6  3  H===='=~  =='===-=  =  ====•=—=-====•==•=•=====■=--■=  =  ==  =  =  =  =  =  ■=  = 
1===  =  =^  =  =,=  =====  = ) 

WRI  TE  (  6  »  1 1 )  (FILTH)  ,  1=1, M) 

WRITE!  7 » 150)  (FILTH),  1  =  1,  M) 

150  FGRMAT! 1X,4E16.5) 

WRITE (6 , 12) 

CHECK  IF  I SS-2 ,  THEN  WE  NEED  T U  PASS  THE  CONTROL  TO  CALCULATE  THE 
6 AND  PASS  FILTER  COEFFICIENTS  OTHERWISE  WE  STOP. 


I F (  ISS.EQ.2)  GO  TO  102 
GO  TC  200 


CALCULATING  BAND  PASS  FILTER  COEFFICIENTS. 


102  IFIFL.EQ.FH)  GO  TG  200 

CALL  6  NDPAS(  N,  CELT,  FL,FH,  FILTHS,  ISS) 

TO  OBTAIN  COMPLETE  SET  OF  SYMMETRICAL  FILTER  COEFFICIENTS. 

F I LT ( M ) =F I LT ( N  ) 

CC  4  5  I-=N,  Ml 

I  1=  I-N  1 

F ILT ( I ) =F  I  LT (  II) 

45  CCNTINUE 

DO  46  1=1, M 

I I  =  M- I  + 1 

FILT(I)=FILT(I1) 

46  CONTINUE 

TO  WRITt  BAND  PASS  FILTER  COEFFICIENTS. 


4 

. 


■ 


- 

•: 


, 
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IF(  IS.EQ.l.ANC. ISS.EQ.2)  GO  TG  126 
I F ( (FH-FL) .LT.{ l./(DELT*FN>') }  GO  TO  126 
W  R  I T  E  (  6 , 3  ) 

126  WR I T  E l 6  »  4 )  N 

i*R I  T  E  (  6  , 15)  CELT 
WRITE(6,6)  FNY* 

WRITE(6,7)  FL 
WRITE(6,17)  FH 
WRITEl6»21)  M 

21  FORMAT { 1HK,34X , 5SHCONPLETE  SET  OF  BAND  PASS  FILTER  COEFF ICIENTS ■ OF 
1  LENGTH  M  =,15) 

hR I T  E ( o , 22  ) 

22  FORMAT ( 1HS ,34X  , 64H-=================  =======  =  =  ===========  =  =  =  ===  =  =  =  = 

WRITE(6,11)  (FiLTt  I  ) , I  =  1»M) 

WR I T  E ( 6 , 12) 

200  CONTINUE 
300  CONTINUE 
STOP 
ENC 


* 


«  .  .  -  '  *  ‘  V  .  * 

' 

’ 


r  • 


•• 


» 
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SUBROUTINE  HGHP AS ( NS, CEL TS , F LS , F I LTS  ) 

r 

w 

C  HIGH  PASS  FILTER  UK  LOW  FREQ.  CUTOFF  FILTER 

C  THIS  FILTER  CUTS  OFF  THE  LOW  FREQ.  COMPONENTS  AND  THE  HIGH  FREQ. 

C  COMPONENTS  ABOVE  THE  SPECIFIED  CUT  UFFFREQUENCY  ARE  PERMITTED  TO 

C  PASS  THROUGH. 

C 

C  NS  -  l S  THE  LENGTH  CF  THE  ONE  LOBE  PLUS  ONE  CENTER  POINT. 

C  F I L  T  6  =  IS  THE  OUTPUT  FILTER  OF  LENGTH  NS 

C  FLS  =  IS  THE  SPECIFIED  FREQ.  TO  CUTOFF  OR  FILTER  CUT  THE 
C  FREuUENCIE^  tiELOrt  THE  SPECIFIED  ONE*  WHERE  AS  THE  FREQUENCIES 

C  ABOVE  FLS  ARL  PASSED  THROUGH. 

C  D EL T S=  DIGITIZED  INTERVAL  BETWEEN  DATA  POINTS.  IN  (SECONDS)  UR  IN 

C  SPACE  (MILES)  .  THE  UNITS  MENTIONED  HERE  ARE  ARBITRARY. 

C 

C  IF  FLc>  IS  HIGHER  THAN  THE  FOLDING  FREQUENCY  (  FLS*DELTS  GREATER  THAN 

C  0.5)  THEN  THE  SUBRCUTINE  RETURNS. 

C 

DIMENSION  FILTSUOL) 

IF( ( FLS*DELTS ) .GT.O. 5)  GO  TO  10 
FNYC-1.0/ (Z.O^DELTS) 

WLS=FLS*DELTS*6. 283 1853 
CG  I  I- I »  NS 
FILTSII )=Q.O 

1  CONTINUE 

FILTSI 1)=( FNYQ-FLS) /FNYQ 
CO  2  1=2, NS 
F 1= 1-1 

FILTSI I )=-(SIN(WLS*FI) )/FI 

2  CONTINUE 

CO  3  1=2, NS 

FILTSI I )  =  F I LTS II )/3. 14  159265 

3  CONTINUE 
IC  RETURN 

END 


- 


r 
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SGBRGUT  INE  LGWPAS  (  NS,  CELTS  ,  FHS  ,  F  ILTS  ,  I  S  ,  I  SS  ) 

C  LOW  PASS  FILTER  CR  HIGH  FREQ.  CUTUFF  FILTER 

C  THIS  FlLIER  GUIS  OFF  THE  HIGH  FREQ.  COMPONENTS  A  NO  THE  LOW  FRQ. 

C  COMPONENTS  0  EL  C  w  THE  SPECIFIED  CUTUFF  FRQ ,  ARE  RETAINED. 

C 

C  NS 
C 

C  FILTS 
C  FLS 
C 

C  FHS 
C 
C 

C  OELTS 
C 

c 

C  IF  WE  SPECIFY  F LS  =  FHS  CR  ( FH  S~F  LS=  FH  S  BECAUSE  FLS  IS  ALWAYS  ZERO 

C  IN  This  SUBROUTINE  ),  wE  GET  THE  NARROWEST  FILTER  CONSISTENT  WITH 

C  THE  UNCERTAINTY  PRINCIPLE  ,  CENTERED  AT  ( FHS+FLS ) /2.  THAT  IS  FHS/2. 
C  ACTUALLY  iT  IS  NOT  THE  DESIRABLE  FILTER  AND  MUST  BE  AVOIDED. 

C 

C  IF  FHS  IS  HIGHER  THAN  THE  FOLDING  FREQUENCY  (FHS*OELTS  GREATER  THAN 

c  o  •  5 )  then  the  subroutine  returns. 

c 

DIMENSION  FILTS  I  101) 

IFUFhS*OELTS)  .GT.0.5)  GU  TO  20 
FNYQ= i . 0/ l 2 . Q*DELT  S ) 

FNS  =  N  S 

IFIFHS.GE. I l./(UELTS*FNS) ) )  GO  TO  10 
I F ( IS.EG.l .AND. ISS.EQ.2)  GO  TO  6 
*RlfE(o»7) 

7  FORMAT { 1H1 , 2X , 73HNARRGWES T  LGWPASS  FILTER  CENTERED  AT  FHS/2. 0) 

I  (REJECT  IT)) 

GC  T C  d 
6  W  R  I  T  t  (  6 , 1 ) 

1  FORMAT { 1HK, 2X » 73HNARRGWEST  LOWPASS  FILTER  CENTERED  AT  FHS/2. 0) 

1  (REJECT  IT)) 

d  WRI Tt ( 6 ,2) 

2  FORMAT ( IX, 2X,73H 

I 

FC-FFS/2.0 

WHS=6.28318d3^(FC^CELTS+0,B/FNS) 

GC  TC  15 

10  WHS=FHS*D£LTS*6. 2631353 
15  CONTINUE 
DC  3  1=1, NS 
F I LT  S ( I  )=0.G 

3  CONTINUE 

F I L  TS ( 1 )=FHS/FNYQ 
DC  4  1=2, NS 
F  I  =  I  -  1 

F ILTS ( I  )= ( SIN (WhS*F  I  )  ) /FI 

4  CONTINUE 


=  IS  THE  LENGTH  OF  ONE  LOBE  OF  A  SYMMETRICAL  FILTER  PLUS  ONE 
CENTER  POINT. 

=  IS  THE  OUTPUT  FILTER  OF  LENGTH  NS 
=  IS  THE  SPECIFIED  LOW  END  OF  THE  FREQUENCY  =0.0 

IT  IS  ALWAYS  ZERO  FOR  LOW  PASS  FILTER.  i 

=  IS  THE  SPECIFIED  FREQ.  TC  CUTUFF  OR  FILTER  OUT  FREQUENCIES 
ABOVE  T He  dPECIFIED  FHS,  WHERE  AS  THE  FREQUENCIES  BELOW  FHS 
ARE  RETAINED. 

=  DIGITIZED  INTERVAL  BETWEEN  DATA  POINTS,  IN  TIME  (SECONDS)  OR 
IN  SPACE  (MILES).  THE  UNITS  USED  ARE  ARBITRARY. 


-  -  !-  . 

•*.  -  •  '  *  ■  >  *  i 

.  "  I 


' 


/ 


" 


CO  5  1-2  » NS 

f-ILTS(  I)=F1LTS(I  >/3.141b9265 
b  CONTINUE 
20  RETURN 
END 


.* 


i  ‘ 

vl 


J  - 
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SUBROUTINE  UNDP AS ( MS  » BELTS  »FLS,FHS,FILTS» IS, ISS) 

C 

C  BANC  PASS  FILTER 

C  IT  PRODUCES  ONE  LCBE  OF  A  SYMMETRICAL  FILTER  WHICH  PASSES  ONLY 

C  FREQUENCIES  BETWEEN  FLS  AND  FHS  AND  PASSES  THEM  WITH  ZERO  PHASE 

C  SFIFT. 

C 

C  NS  -  IS  THE  LENGTH  CF  CNE  LOBE  OF  A  SYMMETRICAL  FILTER  PLUS  ONE 
C  CENTER  POINT. 

C  F I L  T  S=  IS  THE  OUTPUT  FILTER  OF  LENGTH  NS 

C  FLS  =  THE  LOWER  FREQUENCY. 

C  FHS  =  THE  HIGHER  FREQUENCY. 

C  CELTS-  DIGITIZED  INTERVAL  BETWEEN  DATA  POINTS,  IN  TIME  l SECONDS i  OR 
C  IN  SPACE  (MILES).  THE  UNITS  USED  ARE  ARBITRARY. 

C 

C  IF  WE  SPtCIFY  P LS-FHS  OR  ( FHS-FLS )  LESS  ThAN  1 . / ( DEL ,TS*NS ) ,  rcE  GET 
C  THE  NARROWEST  FIlTcR  CONSISTENT  WITH  THE  UNCERTAINTY  PRINCIPLE 
C  CENTERED  AT  (FHS+FLS)/2.  ACTUALLY  IT  IS  NUT  THE  DESIRABLE  FILTER 
C  AND  ML  ST  BE  AVOIDED. 

C 

C  IF  FhS  IS  HIGHER  ThAN  THE  FOLDING  FREQUENCY  (FH$*QELTS  GREATER  THAN 

C  0.5)  THEN  THE  SUBROUTINE  RETURNS. 

C 

DIMENSION  FILTS(lOl) 

IFl ( FHS* CELTS) .uT .0.5)  GO  TO  20 
FNY  C=  1 . 0 / l 2 . 0 *DELTS  ) 

FNS=NS 

IP( (FHS-FLS)  .  GE  .  (I./ ( CELTS* FNS ) )  )  GO  TO  IQ 
IF( IS.EQ.l  .AND. ISS. EG. 2)  GO  TO  6 
WRITE (6, 7) 

7  FGRMAT ( 1H1 , 2X ,  73 HN ARROWEST  BANDPASS  FILTER  CENTERED  AT  (FHS+FLS)/2 

1  .  (REJECT  ID) 

GO  TC  8 
6  W  R  I  T  E  (  6  ,  I) 

1  FORMAT ( IHK ,2X  ,  73 HN ARROW E ST  BANDPASS  FILTER  CENTERED  AT  ( FHS  +  FL $ ) / 2 

1.  (REJECT  IT)) 

8  WRITE (6, 2) 

2  FORMAT ( IX, 2X, 73H 

l  **$*:***$:(:**) 

FC=( FHS+FLS ) / 2 . 0 

WLS  =  6.28318  53*(PC*OELT5-0.5/FNS)  - 
WHS  =  6. 28 31 8 53  * (FC*DELTS+0 . 5/ FNS) 

GC  TC  15 

10  WLS-FLS*DELTS *6. 2831853 
WH5=PHS*DELTS3i:6. 2831853 
15  CCNTINUE 
CC  3  1=1, NS 

FILTS( I ) —  0 . 0  , 

3  CONTINUE 

FILTS  l  1  )=( FHS-FLS) /FNYQ 
CC  A  1=2, NS 
F  I  =  I  -  1 

F ILTS (I )=( SIN(WHS*FI )-SIN(WLS*FI))/FI 


' 


' 3 


‘ 


. 


:  ) 


4  CONTINUE 

CC  5  i=2, NS 

FIlTS(  I  )=F  ILTSC I )/3. L4159265 

5  CONTINUE 
20  RETURN 

END 


FORTRAN  IV 


CONVOLUTION  OF  TWO  DIMENSIONAL  DATA  SET  USING  ONE  DIMEN¬ 
SIONAL  FILTER  COEFFICIENTS. 


N4  .... 

Size  of  the  two  dimensional  data  set  (i.e 

N4  by  N4 ) 

DELT  .... 

Digital  interval 

IS  =1 

if  using  highpass  wave  number  filter 

coefficients 

=-l  if  using  lowpass  wave  number  filter 


coefficients 

=  0 

if  using  bandpass  wave  number  filter 

coefficients 

ISS  =  0 

if  only  required  to  remove  D.C.  from  the 

original  data  set 

=  1 

if  filtered  data  is  required  without 

decimation 

=  2 

if  filtered  and  decimated  data  (alternate 

point)  is  required 

LF  .... 

Number  of  filter  coefficient  terms 

FRE1  .... 

Low-cut  wave  number  of  the  filter 

FRE2  .... 

High-cut  wave  number  of  the  filter 

F ( LF )  .... 

Vector  to  read  in  the  filter  coefficients 

TV(N4 ,N4 )  .... 

Matrix  to  read  in  the  digitized  data  set 

' 

' 


V 


, 


' 
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READ  IN  THE  FOLLOWING  PARAMETERS 


1. 

N4 

according 

to 

F0RMAT(5X,4I5) 

2. 

DELT 

according 

to 

FORMAT (5X,F10. 6) 

3. 

IS,ISS 

according 

to 

FORMAT(5X,4l5) 

4. 

LF,FRE1 ,FRE2 

according 

to 

FORMAT(5X,I5,2F10. 5) 

5. 

F(LF) 

according 

to 

F0RMAT(1X,4E16.8) 

6 . 

TV(N4 ,n4) 

according 

to 

F0RMAT(1X,6E11.4,13X) 

- 


* 

■ 


f.% 


' 


■ 


■ 


10 

16 

17 

20 

29 

30 

35 

45 

46 

60 

70 

71 

75 
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THIS  PROGRAM  TAPERS  THE  TWO-DIMENSIONAL  DATA  USING  COSINE  FUNCTION 
AND  THEN  FILTERS  THE  MATRIX  USING  ONE-DIMENSIONAL  FILTER  COEFFS. 


THE  COMPLETE  SET  OF  INPUT  DATA  IS  KEPT  IN  STORE  AS  A  MATRIX 
T V ( 1 f  J )  OF  DIMENSION  N4*N4. 

N4  ***  SIZE  OF  THE  WHOLE  DATA  MATRIX. 

CELT  ***  THE  DIGITIZING  INTERVAL  IN  MILES 

FILTER  COEFFS.  ARE  READ  IN  VECTOR  F(200)  OF  KNOWN  TERMS  LF. 

LF  ***  NUMBER  OF  FILTER  COtFF.  TERMS. 

FRE1  ***  LGwCUT  FREQUENCY  OF  THE  FILTER. 

FRE2  ***  HIGHC^T  FREQUENCY  OF  THE  FILTER. 

WHEN  USING  E I  The  R  HIGH  CR  LOW  PASS  FREQ.  FILTER  GOEFFSI  w  E 
USE  FKE1=FRE2 

FOR  SAND  PASS  FILTER  WE  SPECIFY  FKE I  ANU  FRE2  AS  LOW 


AND 

HIGH 

CLT  FREQ 

.  VALUES  OF 

THE  FILTER. 

IS  = 

1 

❖  *  * 

MEANS 

US  INC 

HIGH  PASS 

FREQ. 

FILTER 

COE F F  S . 

IS  = 

-1 

*** 

MEANS 

USING 

LOW  PASS 

FK  EQ  • 

FILTER 

COc F F  S  . 

IS  = 

C 

MEANS 

USING 

BAND  PASS 

FREQ . 

FILTER 

f'  f '  ca  r_  c  c 

Ov  '  4_  1  i  O  • 

L  A  ? 

Ld 

vU  A 

-rr  t 

THE  N  U 

MBER 

OF  POINTS 

AFTER 

CONVULUT 

ION, 

I SS=0  REMOVE  D.C.  ONLY  FROM  THE  ORIGINAL  DATA. 

ISS=1  OBTAIN  FILTERED  DATA  WITHOUT  DEC  I  MAT  I CMN . 

ISS=2  OBTAIN  FILTEkEC  AND  DECIMATED  DATA , 

ANY  CHANGE  IN  CUMMON  CARD  DIMENSIONS  WOULD  ALSO  REQUIRE  CHANGE 
IN  SUBROUTINE  COMMON  CARDS. 

Cl  MENS  I  CN  X ( 500 ) , F { 20  0 ) , S ( 5  00  5 
COMMON  TV(2CC»2C0) 

FORMAT (5X*4I5) 

FORMAT  l  59X  ?  ’FINAL  DATA’  ) 

FORMAT! 1 h I »  5 8 X  > 1 C (  1H*J  ) 

FORMAT { 5X*FlG.6j 
FORMAT ( 5  X i I5,2F10.5J 
FORMAT! IX, 4E 16. 8) 

FORMAT ( 1 X  ,  6  E  1 1.4, 1 3  X ; 

FORMAT ( 1HJ ) 

FORMAT i 1 H 1 ) 

FORMAT ( 5 7X DELT  =  *  ,  F 8 . 3 , *  M I L E 1 , 8 X , • N YQU I  ST  WAVELENGTH=  *  ,F8.3, ’ MI 
1 LE  *  ) 

FORMAT ( 1H4  ) 

FORMAT ( 1H  7 ) 

FORMAT (  1HJ ,2lXt  'SIZE  CF  THE  ORIGINAL  MATRIX  -*,15, 23 


-  *  >,  * * '  !» 


*  *  l 

' 


*■ 

& 

1 

. 

' 

-  ■ . . 

r 


:  i  *  ,  f  .  ‘  *  * 

* 

. 

*  u  4  ■ 

w  * 

• 

oooooo  oo  ooo  ooo  oooo  ooo  oonor^ 
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IX,  •  I  S 5  =  1  ,  15) 

76  FORMAT l  IHJ  »  2 1  X  »  'SIZE  CF  DECIMATED  MATRIX  AFTER  FILTERING  =  »  ,15,29 
IX,  • I SS  =  ',15) 

REAC  {  6  ,  1G  )  ISA 
RE AD l 5 , 20 )  CELT 
REAGIb, 10)  IS, I SS 
REAC (5,29)  LF,FKE1,FRE2 
R  tAD ( 5  »  30 )  IFU),I=L,LF) 

ALAMD  l  =  i./FRE i 
ALAMC2-1./FRE2 

In E  READ  THE  WHOLE  DATA  SET  FROM  NI  TO  N2  POSITIONS  IN  A 
MATRIX  FORM,  SC  THAT  WE  HAVE  THE  REMAINING  SPACE  FOR 
COSINE  TAPERING  PURPOSES. 

LFI  =  LF/2 
M-LF1+1 
N2  =  N 4+  LF I 
N3-N4+2*LF I 
JCIME=2G0 

CALL  ZEKOIJ ( JCIME, JDIME) 

CO  6G0  I  =  N  I ,  N  2 

R  fc AC ( 5  »  36 )  (  T V (  I  ,  J ) ,  J  =  N1 , N2 ) 

60 C  CONTINUE 

NOW  WE  REMOVE  THE  C.C.  VALUE  FROM  THE  DATA, 

wRITE(t>,46) 

CALL  DC  CUT ( M , N 2 ) 

IF l ISS.EQ.O)  GO  TO  I 

TO  CALCULATE  THE  VALUE  CF  GAMMA  FOR 

TAPERING  OF  ROWS  AND  COLUMNS, 

IT  ALSU  PRINTS  OUT  THE  VALUE  OF  GAMMA. 

CALL  CCNSTT (GAMMA, LFI) 


NOw  WE  TAPER  THE  ROWS  AND  COLUMNS  CF  THE  MATRIX  TV 


CALL  TAPER (GAMMA  ,N1,N2,N3,LF I ) 

AGAIN  WE  REMOVE  THE  D.C.  VALUE  FROM  THE  TAPERED  DATA, 

CALL  DC  0 U T ( I , N 3 ) 

WRITE!  6,70 

TO  WRITE  THE  TYPE  CF  FILTER  USED  AND  OTHER  NECESSARY  DATA 

CALL  L  H  B  (  I3,FRE!,FRE2 , ALAMDI , AL AMD2 J 

10  FILTER  EACH  ROW  AND  THEN  TO  FILTER  EACH 
COLUMN.  WE  USE  VECTOR  X ( J )  FOR  TRANSFERRING 
EACH  ROW  AND  EACH  COLUMN  FUR  WORKING  PURPOSES. 


FCR  ROWS 


'4 


' 


J ' 


.  -  .  : 


. 


'  K  *  .  .  } 

' 


oono  nortoo  nrio  oooo 
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DC  202  1=1, N3 
DC  203  J=1,N3 
XI  J)=TV(  I  i J) 

203  CONTINUE 
C 

CALL  FILTEKiX»N3,F,LFf S»LA) 

THE  FILTERED  VECTOR  10  STORED  IN  S,  WHICH  WE  TRANSFER 
BACK  TO  MATRIX  TV ( I , J) 

CO  2 0 A  J=1,N3 
J  1=  J  +  LF  1 
TVi  I  ,  J)  =  SI J1 ) 

204  CONTINUE 
202  CONTINUE 

FOR  COLUMNS 

DC  205  J= 1 » N 3 
CO  206  1=1, N3 
X ( I ) =T V (  I  , J) 

206  CONTINUE 

CALL  FILTER(X,N3»F,LFfSfLA) 

DC  207  1=1, N3 
I  1= I +L  F 1 
TV  (I  ,J)=S(  ID 

207  CONTINUE 

205  CONTINUE 

AFTER  FILTERING,  WE  HAVE  THE  DATA  MATRIX  OF  THE 
SAME  SIZc  AS  ORIGINALLY  PUT  IN.  NOW  WE  CAN  ARRANGE 
THE  MATRIX  TV(I,J)  AS  I,J=1,N4 

1  CONTINUE 

CO  208  I =  N  1 » N 2 
DC  208  J  =  N  1 , N  2 

I  1= I-LF1 
J  1= J- L  F  1 

TVI  II,  J1)=TVU,J) 

208  CONTINUE 


TO  PRINT  THE  PARAMETERS  BEFORE  THE  DECIMATION  OF  DATA  POINTS. 

WRITE ( 6 ,71  ) 

WRITEI6,75)  N4 ,  I S  S 
WR I T  E ( o , 4  5 ) 

FN=2  .C*DELT 
WRI T  E I  6 , 60 )  CELT, FN 
IFI ISS.EU.O.GR. ISS.EQ. 1)  GO  TO  2 

C  WE  HAVE  FILTERED  THE  DATA  BY  CUTTING  OFF  WAVELENGTHS  SMALLER  THAN 


•  >  - 


' 


•.  *-  r  •  ! 
*  - 

r '  .  •  *  .  ‘ 

V'w 

' 


:  ..  .. 


non 
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C  TwG  MILES*  SO  wt  CAN  DROP  EVERY  SECOND  POINT  FROM  THE  OKI GIONALLY 

C  FILTERED  DATA  OF  1/4  OR  i/2  MILE  DIGITIZING  INTERVAL. 

C 

N4  = l N4+1 ) / 2 
CO  9  1=1, N4 
I  1=2* I- 1 
CO  9  J=  I ,  N4 
J  1  =  2* J-i 

TVU  ,  J)  =  TVU1,  Jil 
9  CONTINUE 

TO  PRINT  Tht  PARAMETERS  AFTER  THE  DECIMATION  OF  DATA 

WRITE(6,45) 

WRITE(6,45) 

WRITE(6,45) 

WR ITE { 6 , 76 )  N4 ,  I S  S 
WRI TE ( 6  »  45 ) 

OELT=2 . 0*DELT 
FN=2 *C*DELT 
WRITE(6,60I  CELT,  FN 
C 

C  TO  WRITE  THE  LECIMATED  DATA  IN  THE  MAP  FORM 

C 

2  CONTINUE 
WRI  TE (6,46) 

ViRITE(o,16) 

W  R  I  T  t  l  6 , 1 7  ) 

CALL  SPLIT (N4,N4) 

DO  IS  1=1, N4 

WR  ITE t 7, 35)  {  T V  i  I  *  J  )  ,J=1,N4) 

15  CONTINUE 
STOP 
END 


' 


. 
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SUBROUTINE  ZERGIJ(N,M) 

C  IT  ZERO’S  THE  MATRIX  T  V ( I , J ) 

COMMON  TV { 2CC  »  2CQ ) 

UC  l  1=1,  N 
CC  i  J-1,M 
TV(I,Ji=0.C 
1  CONTINUE 
RETURN 
END 


...  . 


- 


< 
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SOdRLOTINE  CC  QUT!N1,N2) 

C  REMOVES  THE  AVERAGE  (D.C.  )  VALUE  FROM  THE  DATA 

COMMON  T V ( 2CC  t  2C0 ) 

S  U  M  -  C  .  G 
CO  1  I  =  N  1  »  N2 
CC  1  J=N1,N2 
SUM=SLM+TV i I , J ) 

1  CONTINUE 

SUM1=SUM/FLCAT ( tN2-Nl+lJ*(N2-Nl+l) ) 

CO  2  I ■=  M  »  N 2 
CC  2  J  =  N 1 »  N2 
T  V  l  I  ,  J)=TV( I , JJ-SUM1 

2  CONTINUE 

c 

C  TO  PRINT  CUT  THE  RESULTS 

WRITE! 6, 10)  SUM  1 

10  FORMAT! 1HJ ,2GXf  'AVERAGE  !D.C.)  VALUE  =',E13.4) 
C 

RETURN 

END 


' 


o  r>  r~>  o  r. 
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SUBROUTINE  CONST! (GAMMA, LF1 ) 

C 

IF  CALCULATES  THE  CONSTANT  GAMMA  FOR  TAPERING  OF  THE  PROFILES 

* E  NEED  j 1  STANCE  FROM  THE  BOUNDARY  TO  THE  POINT 
IU  WHICH  THE  TAPERING  IS  REQUIRED. 

C  FORMULA  USED  IS  GAMMA  =  PI/LF1 

C 

GAMMA  =  3. 14159/FLCAT ( LF  1  ) 

WR I T  t ( 6 , 2 )  GAMMA 

2  FORMA  f ( IH J  » 20X  »  • TAPER ING  CONSTANT  =»,EI3.4) 

RETURN 

END 


• 

% 

' 

- 
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SUGRGUT  l  ME  I A  P  Ek  {GAMMA,Ni»N2,N,M) 

c 

E  TC  TAPER  THE  PROFILES  ALONG  ROWS  AND  THEN  ALONG  COLUMNS 

C  BY  USING  THE  FORMULA  T V ( I , J ) =AMPL I TUDE* ( 0 . Q . 5 *CU$ { GAMM A* I  X )) 

C  hHER E  AMPLITUDE  IS  THE  VALUE  AT  THE  BOUNDARY  OF  ThE  PROFILE, 

C  AND  GAMMA  IS  THE  CONSTANT  DETERMINED  BY  SUBROUTINE  CONST. 

C  AND  IX  TAKES  THE  VALUE  FROM  1  T0  LF1=12  AT  EACH  END 

C  CF  THE  PROFILE 

C 

COMMON  TV12CC»20G) 

N3i=N2+l 
CO  1  I-N 1 »  N2 
CC  1  J=  1  » M 
A  =N 1— J 

TV(  I  ,  J  )  =  T  V  1  I,N1)*( C.  5+0.5 *COSt GAMMA* A)  ) 

CO  i  K  =  N3  1 , N 
B  =  K-.\2 

TV ( I »  K ) -TV (  I,N2)*(C.5+C.5*C0S(GAMMA*B) ) 

1  CONTINUE 
CC  2  1=1, N 
CO  2  J  =  1  ,  M 
A  =  N  1  -  J 

TV(J»I)=TV(N1, I)*(C*5+G.5*CGSIGAMMA*A) ) 

CO  2  K=  N  3 1  ,  N 
B  =  K-N  2 

TV(K,I)=TV(N2, I )*(Q.5+C.5*COS(GAMMA*d)  ) 

2  CONTINUE 
RETURN 
END 


' 


4  —  '  M 


->■  ^ 


■  ■  -  - 


* 

. 

ooo  oc'onc'O 
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SU3RCUT  INE  L  H  6  < I S , FRE 1 , FRE2 , AL AMD 1  ,  ALAMD2 ) 

IT  WRITES  GUT  LOW,  hIGh,  GR  BAND  PASS  FILTER  TITLES  AS  REQUIRED. 

I F 1  I S  «EQ  *  1  )  GC  TC  22 
I F ( IS. EG. 01  GC  TC  23 

PRINT  FCR  LOW  PASS  FREQUENCY  FILTER 


*RITE(6,60)  FRE2 

60  FORMAT ! 1HJ ,2X ,29HHIGH  CUT  FREQUENCY  (IN  CPM)  -,F10.5) 

WRITE(6,61)  ALAMC2 

61  FORMAT!  IH J , 2X , 33HHER E  THE  WAVELENGTHS  SMALLER  THAN  , F5. I , IX, 17HMIL 
IBS  ARE  CUT  OFF) 

WRITE!© ,62 ) 

62  FORMAT! 1HL , 35X , 6CHL0W  PASS  FREQUENCY  OK  LOW  CUT  WAVELENGTH  FILTER 
1CCEFFIC I  ENTS ) 


W  R  I  T  E  (  6 , 6  3  ) 

63  FORMAT (  1HT, 33 X,6CH****** ******** ****** 


y-  J»  -J*r  J.  Y1'  4*  •'*•*  V' 

rTTTvvTTwrrTTVl'  X'  -v 


*  *  *  *  *  *  *  *  * 


GC  TC  41 


PRINT  FOR  HIGH  PASS  FREQUENCY  FILTER 


22  WRITE!6»7G)  FRE 1 

70  FORMAT! 1HJ ,2X  ,29HLCW  CUT  FREQUENCY  (IN  CPM)  =,F10.5) 

WRlTE(6,7i)  AL AM  C I 

71  FORMAT!  lHJ,2X,33hFiERE  THE  WAVELENGTHS  GRcATER  THAN  ,  F  5  ®  l  ,  1 X  ,  1 7  H  M  I  L 
IES  ARE  CUT  OFF) 


WRITE(6,72i 

72  FORMAT ( IHL,34X,62HH1GH  PASS  FREQUENCY  GR  HIGH 
1R  COEFFICIENTS) 

WRITE (6,73  ) 

73  FORMAT ( 1HT ,  34 X , 6 2H ************************* ** 

l  *  *  *  *  **  *  $  £*  } 


CUT  WAVELENGTH  FILTE 


*V*  T**  f'  ' 


1  J#  ^  -■  J. 


v  ❖  £  L  £  - 


GC  TC  41 


PRINT  FOR  BAND  PASS  FREQUENCY  FILTER 


23  WRITE  (6, 70  FRE1 
WRITE(to,6C)  FRE2 
WRITE!©, 61)  ALAMC2 , ALAMD1 

81  FORMAT! 1HJ ,2X  ,33HHERE  ONLY  THE  WAVELENGTHS  BETWEEN, F5. 1 , IX, 9HMILES 
1  AND,F5. 1,  IX,  L3HMLES  ARE  RETAINED) 

WRITE!6,82) 

62  FORMAT ( 1HL ,50X, 29HBAND  PASS  FILTER  COEFFICIENTS) 

W  R I  I  E  !  6 , 8  3  ) 


83  FORMA  I  (  1HT,50X  ,  2  9  H  ***************************** ) 


41  CONTINUE 
RETURN 


END 


. 

# 


V 


■ 


r>  o  o 


SUBRLUT INE  F I L  TER ( WCRK  ,N3,F,LF,S,LA) 

II  CGNVCLVES  THE  RCW  OR  COLUMN  VECTOR  WITH  FILTER  COEFFS 
AND  CUTS  OFF  THE  END  EFFECTS.  FINAL  VECTOR  IS  STORED  IN  S 
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C 


REAL  WORK!  I C  )  , S ( 1 0 ) , F (  10 ) 

CALL  CCNVCLI WCRK ,N3,F, LF,S,LA) 

TO  CUT  OFF  THE  END  EFFECTS  OF  THE  FILTERED  DATA 
CALL  CUTENDI S,N3,LF,LA) 

RETURN 

END 


' 

.  * 


s 


J 


r>  r.  o  r>  r> 


f 
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SUBROUTINE  CCNVUHXfLX,  F,LF,  A,  LA) 

EACH  ROW  CP  COLUMN  VECTOR  X  OF  GIVEN  NUMBER 
CF  POINTS  LX  13  CONVOLVED  WITH  THE  FILTER  COEFFS.  IN 
VECTOR  F  OF  KNOWN  NUMBER  OF  POINTS  LF 
THE  RESLlTING  VALUES  ARE  STORED  IN  VECTOR  A  AND 
C  LA  GIVES  TE  NUMBER  OF  POINTS  IN  VECTOR  A 

C 

REAL  X(  10 ) , F ( 10 J , A ( IC) 

LA=LX+LF-  I 
DC  I  1=1, LA 
A  (  1)=0.0 

1  CONTINUE 

DC  2  1=1, LX 
CO  2  J=1,LF 
K  = 1  +  J-l 

A  (  K ) =  X ( I ) $  F l J )  +  A (K) 

2  CONTINUE 
RETURN 
END 


■  ~iv 

;  ,  .  '  - 


'  )  t  ■ 

V  - 
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SUBRCUT  INE  CUTENC(X,NOPTS,LF,LA) 

REAL  XI 10) 

W  GETS  OFF  END  EFFECTS  OF  THE  FILTERED  DATA 

LFl=LF/2 
LF2=LA-LF 1+1 
CG  1  1=1, LF1 
X  tI)  =  C.C 

1  CONTINUE 

CG  2  1=  LF 2  ,  LA 
X  (  I  )  -  C  •  0 

2  CONTINUE 
RETURN 
ENG 


o  o  r-.  o  o  o 
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SuBRGUT  I  N£  SPLIT  { f\  ,  M  ) 

THIS  PROGRAM  SPLITS  THE  WRITE  STATEMENT  IN  THE  FUKMAT  1=1, N 
J=lf26  AT  A  TIME. 

WL  CAN  JOIN  THE  DIFFERENT  WRITTEN  PARTS  IN  THE  FORM  OF  A  MAP 


AS 

46 

50 


2 


1 


4 


3 


COMMON  T  V ( 2CC  »  2CC ) 

FORMAT (  IX, 26F5.0 ) 

FORMA  T( lhl ) 

FORMAT l 1HJ ) 

M  1  =  M  /  2  6 

IFIMl.LT. 1)  GO  TO  4 
CG  i  IC=1 , M 1 
I  1  =  (  2  6  =5-  (  IC-1)  )  +  i 
12=1  i  +  2  5 
DC  2  1=1 , N 

wRITt(6,45)  l  TV ( I , J ) , J  =  I 1 , I  2  > 
WRITt(6»5C) 

WR I T 1 1 6 , 50 ) 

CENT  INUE 
wRITE(o,46) 

WRITE (6, 50) 

WRITE (o,50) 

CONTINUE 

IFl (Mi*26) .fcQ.M)  RETURN 

I3=(26*M1)+1 

CO  3  1=1, N 

WRITE(o,45)  i  TV (  I  , J) , J=I3,M ) 
WRITE (6,50) 

WRITE (6, 50) 

CONTINUE 

WRITE(6,46) 

RETURN 

ENC 


AND 


•  t 


. 
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FORTRAN  IV 


TWO  DIMENSIONAL  IMPULSE  RESPONSE  AND  TRANSFER  FUNCTION  OF 
THE  FILTER  OPERATOR. 


N4 

N  ( 1 ) 
N(2) 
N(3) 


size  of  the  two-dimensional  coefficient  matrix 
=  N4-1 
=  N4-1 

=  0 


DELT 

IS 


LF 


FRE1 
FRE2 
F  (LF ) 


Digital  interval 

=  1  for  highpass  wave  number  filter  operators 
=-l  for  lowpass  wave  number  filter  operators 
=  0  for  bandpass  wave  number  filter  operators 
Number  of  one-dimensional  filter  coefficient 
terms 

Low-cut  wave  number  of  the  filter 
High-cut  wave  number  of  the  filter 
Vector  to  read  in  one-dimensional  filter 
operators 


READ  IN  THE  FOLLOWING  PARAMETERS 


1. 

N4 

according 

to 

FORMAT(5X,4l5) 

2. 

N  ( 3 ) 

according 

to 

FORMAT(5X,4l5) 

3. 

DELT 

according 

to 

FORMAT (5X, FI 0.6) 

4. 

IS 

according 

to 

F0RMAT(5X,4I5) 

5. 

LF  3  FRE1 j  FRE2 

according 

to 

FORMAT(5X,I5,2F10. 5) 

6 . 

F(LF) 

according 

to 

FORMAT (1X34E16.8) 

•  .  -  , 


■ 


.  .  . 

*  '  r  .  "  . 


. 

*  / 
■ 


■■■  ‘TSIh 


i\  ■ 


* 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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THIS  PROGRAM  GIVES  A  IMPULSE  RESPONSE,  AND  AN  TRANSFER  FUNCTION  IN 
FREQUENCY  DOMAIN  DUE  TO  A  TWO  DIMENSIONAL  FILTER. 


IMPULSE  RESPONSE  OF  THE  TWO  DIMENSIONAL  FILTER  IS  FORMED  BY 
CONVOLVING  THE  ONE  DIMENSIONAL  BOX  TYPE  FILTER  COEFFICIENTS 
rsITM  A  ‘SPIKE*;  FIRST  ALONG  THE  ROWS  AND  THEN  ALONG  THE  COLUMNS. 

TRANSFER  FUNCTION  IS  OBTAINED  BY  USING  T GO  DIMENSIONAL  FAST 
FOURIER  TRANSFORMS  ON  A  SYMMETRICAL  RE-ARRANGED  INPUT  IMPULSE 
RESPONSE  OF  T toO  DIMENSIONAL  FILTER  COEFFS. 

THE  PROGRAM  USES  TwG  DIMENSIONAL  FOURIER  TRANSFORM  WHICH  IS  BASED 
CN  ThE  ALGORITHM  DE  V  EL  CP  ED  BY  GOOD  (1958)  AND  MODIFIED  BY  COOlEY- 
TOKEY  (  19oo )  AND  GEN TLEMAN-SANDE  (1966). 

N4  ****  SIZE  CF  THE  TWO-DIMENSIONAL  COEFF.  MATRIX. 

N (  1 ) -N4- 1 
N ( 2 ) =N4- 1 

DELI  ***  THE  DIGITIZING  INTERVAL  IN  MILES. 


ONE  DIMENSIONAL  FILTER  COEFFS.  ARE  READ  IN  VECTOR  F( 200)  OF  KNOWN 

TERMS  LF. 

LF  NUMBER  OF  CNE-OIMENS IONAL  FILTER  COEFF.  TERMS. 

FREI  **  LGWCOT  FREQUENCY  OF  THE  FILTER. 

FRE2  **  HIGHCUT  FREQUENCY  OF  THE  FILTER. 

WHEN  USING  EIThcR  HIGH  OR  LOW  PASS  FREW.  FILIER  COEFFS;  WE  USE 
FRE  I  =  FRE2 


FOR  BAND  PASS  FILTER  WE  SPECIFY  FRfci  AND  FRtZ  AS  LOW  AND  HIGH 
CUT  FREQ.  VALUES  OF  The  FILTER. 


I  S= 1  ***  MEANS  USING  HIGH  PASS  FREQ. 
I  S~- 1  ***  MEANS  USING  LOW  PASS  FREQ. 
IS-C  ***  MEANS  USING  BAND  PASS  FREQ. 
LA,  LB  ^  ^  THE  NUMBER  OF  POINTS  AFTER 


FILTER  COEFFS. 
FILTER  COEFFS. 
FILTER  COEFFS. 
CONVOLUTION. 


ANY  CHANGE  IN  COMMON  CARD  DIMENSIONS  WOULD  ALSO  REQUIRE  CHANGE  IN 
SUBROUTINE  COMMON  CARDS. 

D 1 MENS  I GN  X( 1000) ,Y( 1000) ,S(  1000) ,F (200) ,N( 3) 

COMMON  TV (10 1,101) 

REAC(5,I0)  N4 
R  E AD ( 5 , 10)  (N(J)  ,  J= 1 , 3 ) 

NOPT  S=N ( 1 ) *N ( 2 ) 

NN=N ( 1 ) 

NNN-N ( 2  ) 

FORMAT ( 5X,4I5) 

READ(5,2Ci  DELI 

R E AC ( 5  »  10  )  IS 

READ ( 5 , 29  )  LF , FRE 1 , FRE2 

RE AD ( 5 , 30 )  { F  (  I  )  ,I  =  1,LF) 


/ 


'  t  *  * 

* 

, 


N 


■ 


noo  no  noon  o  n o o n n  o  on 
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WNYG=2.0*DELT 
WRITE(6,41)  DcLT»WNYU 

41  FORMAT! 1HJ,2X, 'DIGITIZING  INTERVAL  (IN  MILES)  =  1 , F6. 2, 10X , 1 NYQUI ST 
1  WAVELENGTH  (INMILES)=*,F6.2) 

20  FORMAT ( 5X,F1C. 6) 

29  FORMAT (  5X , I5,2F1C.5) 

30  FORMAT ( 1 X  ,  4  E 1 6 . 6  ) 

ALAMO  1=1 ./FRE 1 
ALAMC2= 1 ./FRE2 
LFl=LF/2 

N  1-LF 1+1 
N2=N4+LF 1 
N3=N4+2*LF1 

WE  READ  IN  THE  ‘SPIKE*  AT  THE  CENTRE  AND  SET  REST  UF  THE  MATRIX 
ZERO  . 

JDIME=1C1 

CALL  ZEROIJl JDIME, JCIME) 

TV(LFfLF)=1.0 

TO  WRITE  THE  TYPE  OF  FILTER  USED  AND  OTHER  NECESSARY  DATA 
CALL  LH B ( IStFREl »FRE2, ALAMD1 » ALAMD2 ) 

TO  CCNVCLVE  WITH  ThE  FIRST  ROW  AND  THEN  TO  CONVOLVE 
WITH  EACH  COLUMN. 

WE  USE  VECTOR  XU)  FCR  TRANSFERING  THE  ROW  AND 
EACH  COLUMN  FCR  WORKING  PURPOSES. 

FCR  FIRST  ROW 
CC  2C3  J=1,N3 
X( Jj-TVILF» J) 

203  CONTINUE 

CALL  FILTER  l X ,N 3 , F , LF , S , LA i 

AFTER  CONVOLVING  ANO  CUTTING  OFF  THE  tND  EFFECTS,  THE 
VECTCR  IS  STORED  IN  S,  WHICH  WE  TRANSFER  BACK 
TO  MATRIX  TV ( I , J ) 

CC  2C4  J= 1 , N  3 
J  1-=  J  +  LF  I 
TV(LF, J )=S( J1 ) 

204  CONTINUE 

FCR  COLUMNS 
CC  205  J=  1  , N 3 
CC  2C6  1  =  1, N3 

X  (  I  )  =  T  V  (  I  ,  J  ) 

206  CONTINUE 

CALL  FILTER  ( X , N3 , F , LF , S , LA ) 

CO  2C7  1=1, N3 
1 1=  I  +  L  F  1 
T  V ( I  ,  J)  =  S(  I  1 ) 

207  CONTINUE 

205  CONTINUE 

AFTER  CONVOLVING  WE  HAVE  THE  DATA  MATRIX  OF  THE  SAME 

SIZE  I.E.  N3*N3  AS  ORIGINALLY  PUT  IN.  WE  CAN  ARRANGE  IT  AS  FROM 

I  ,  J=  1 ,  N4  . 


j  * 


^  ■  •:  * 

» - 

* 


' 

i  * 

-  -  : 

« i 


■ 


r>  o  r> 
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CO  208  l  =  N  1 » N2 
CO  2C8  J=N1,N2 
I  1= i-LF  1 
J 1= J-LF  i 

T  V  (  I  1 ,  J  1 )  =TV (  I  ,  J  ) 

208  COM  iNUE 
C 

WR I TE ( 6 ,3 1  ) 

31  FORMAT  I  lhL,  43X,43HIMPULSE  RESPONSE  FOR  TWO  DIMENSIONAL  FILTER)  . 
WRITEI6, 32) 

32  FORMAT (  1HT,43X, 431 IH*')  ) 

DC  209  1=1, N4 

WR  I TE l 6 , 40  *  ( TV ( I , J)  ,  J=1,N4) 

WRITE (6,45) 

WRITE! 7,49)  I  TV ( I , J ) , J-l ,N4) 

209  CONTINUE 

49  FORMAT ( IX, 6E1  1.4, 13X) 

45  FORM AT ( 1HJ  ) 

46  FORM  A  I  ( 1H 1  ) 

C 

C  *E  SET  THE  MATRIX  TV  IN  A  SUCH  A  SYMMETRY,  SG  THAT 

C  THE  IMPULSE  RESPONSE  OUTPUT  IS  IN  THE  CORRECT  ORDER. 

C  CONSIDER  THE  Sc  CORNER  OF  THE  MATRIX  AND  PUT  IT  IN  THE 

C  NW  CORNER  AND  THEN  ARRANGE  IN  A  SYMMETRIC  MATRIX. 

C  AND  STORE  IN  THE  VECTOR  X  FOR  FOURIER  TRANSFORMS. 

C 

C  SETTING  SE  CORNER  OF  MATRIX  TV  INTO  NW  CORNER. 

N5=(N4+l)/2 

GO  600  1  =  1 , N 5 

GG  6CC  J=1,N5 

11= N 5+1-1 

J  1=N  5  + J-  1 

TV!  I  ,  J)  =  TV( I  1 , J 1 ) 

600  CONTINUE 

SETTING  NW  CORNER  (SIZE  N5*N5)  OF  MATRIX  TV  IN  A  SYMMETRICAL  URDER 
OF  (2*N5-2)*(2*N5-2)  MATRIX  AND  STORING  IN  VECTOR  X. 

DC  1  1=1, N5 
DC  2  J  =  1  , N 5 
Jl= I 2*N5-2)*( 1-1 )  +  J 
X  i  J  1  )  =  TV ( I , J ) 

2  CONTINUE 
N6=N5-2 
CO  3  J  =  1 , N 6 
J2=  J  1  + J 

X(  J2)=TV( I , N5- J ) 

3  CONTINUE 
1  CONTINUE 

N7=2^N5~2 
DC  5  K= 1 , N6 
DC  4  J=1,N7 
J3= J2+ J 

X( J3)=X( J3-(4*N5-4)*K) 


...  . 

V 


' 


... 


■ 


' 


non  o  n  o  o  n  o  o  no 
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4  CONTINUE 
J2  =  J3 

5  CONTINUE 
END 

CALL  ZERG ( Y , NCPT  S ) 

CALL  ZERO! S,NCPTS ) 

CALL  ARMDFT { N , X , Y  »  S ) 

TO  WRITE  THE  IMPULSE  RESPONSE  AMPLITUDE  X 

NCW  WE  SEPARATE  THE  N W  CORNER  (N5*N5)  OF  THE  MATRIX  (N4*N4)  FROM 
VECTOR  X.  THEN  SET  Nw  CORNER  INTO  Sb  CORNER  OF  THE  MATRIX  (N4*N4) 
AND  COMPLETE  THE  SYMMETRICAL  ARRANGEMENT  OF  THE  MATRIX. 

CC  8  1=1,  N5 

1 1  =  N5  + 1-1 
CC  9  J  =  1 » N  5 
Jl  =  »\5  +  J-1 
J2=N5- J+  1 

TV(I1»JI)=X(  (2*N5-2)*(I-1)*J) 

TV (  I  1,J2)=TV{  11,  Jl) 

9  CONTINUE 
8  CONTINUE 
N  8  =  N  5  -  1 
CC  11  I  =  1 , N  8 
DC  12  J=  1 , N4 

1 2  =  N4- I  +  1 

T  V (  I , J  J  —  I  V (  12,  J) 

12  CONTINUE 
11  CONTINUE 

WRITE(6,46) 

WRITb(6,'3  3) 

33  FORMAT (  1HL ,  35X,  59HTRANSFER  FUNCTION  (IN  AMPLITUDE)  FOR  TWO  OIMENSI 

1CNAL  FILTER) 

WRITE (o , 34 ) 

34  FORMAT ( 1HT , 3  5  X , 5  9 ( 1 H  $ ) ) 

DG  210  1=1, N4 

WRITE(6,40)  (TV(IfJ)  ,J=I,N4) 

WRI  Tc ( 6 ,45) 

210  CONTINUE 
40  FORMAT ( IX, lfcF8.4) 

TC  NORMALIZE,  WE  DIVIDE  ALL  VALUES  WITH  THE  HIGHEST  ONE. 

TO  GETAIN  THE  MAXIMUM  ELEMENT  FROM  THE  MATRIX. 

ANGRM= ABS ( TV ( 1,1) ) 

CC  13  1=1, N4 
CO  13  J  =  1 , N 4 

IF(AeS(TV(  I  ,  J  )  ) .GT  .ANGRM)  GO  TO  16 
GG  TC  13 
16  COM  I  NuE 

ANORM= ABS l TV ( I , J ) ) 

13  CONTINUE 


* 

r 

T  l  .  *  ‘  . 


. 


r>  n  o  r> 
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C  DIVIDE  BY  ANGRM  TC  NORMALIZE  THE  RESULTS. 

CC  14  1=1, N4 
ca  14  J  =  1 , N  4 
T  V (  I  ,  J)=TVl  I  ,  JJ/ANCRM 

14  CONTINUE 

AND  TO  OBTAIN  THE  RESULTS  IN  DECIBELS  WE  TAKE  LOGRITHiM  OF  EACH 
NORMALIZED  VALUE  AND  THEN  MULTIPLY  BY  20  (BECAUSE  IT  IS  AMPLITUDE) 
IF  IT  WERE  POWER  THEN  wE  HAVE  TO  MULTIPLY  BY  10. 

CO  15  1=1, N4  ; 

CO  15  J=i,N4 

TV  (I  ,J)=20.O*AL0C-10lABS(TVI  I  ,  J )  )) 

15  CONTINUE 
C 

WRITE(o,46) 

WR I TE ( B , 35 ) 

35  FORMAT { 1HL ,35X , 5 BHTR ANSFLR  FUNCTION  (IN  DECIBELS)  FOR  TWO  OIMENSIO 
INAL  FILTER) 

WRITE (6, 34 ) 

CALL  SPLIT(N4,N4) 

CO  211  1=1,  N5 

WRITE(6,40)  (TV(I, J) , J=N5,N4) 

WRITE  16, 45) 

wR  I  T  £ l 7,49)  I  TV ( I »  J ) , J  =  N5 ,N4) 

211  CONTINUE 
STOP 
END 


->  .  \  ' 


'  ' 


‘ 


. 


' 


SUBROUTINE  Z  ERC I J ( N  »  M  ) 

IT  ZERO'S  THE  MATRIX  TVII.J) 
CGMMCN  TV  I  1C  I  » 10  1 ) 

CC  I  1=1, N 
CG  I  J=  1 ,  M 
TVl I  ,  J)=G.O 
CGNT  INUE 
RETURN 
ENG 


•: 


*  . 


. 


o  o  r>  ooo  ooc~.  ooo 
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SUBROUTINE  L  H  B  { I S , FRE 1 , FRE2 , AL AMD l , AL AMD2 ) 

IT  WRITEb  OUT  LOW  »  HIGH,  OR  BAND  PASS  FILTER  TITLES  AS  REQUIRED. 

IFl IS .EG. I )  GC  TO  22 
IFI IS.EG.O)  GL  TC  23 

PRINT  FOR  LOW  PASS  FREQUENCY  FILTER 

WR  I  T  E ( 6  r  60 }  FRE2 

60  FORMAT (  1HJ , 2X ,29HHIGh  GUT  FREQUENCY  (IN  CPM)  =,F10.5) 

WRITE (6, 6IJ  ALAMD2 

61  FORMAT  UHJ  ,2X  ,3.3HhERE  THE  WAVELENGTHS  SMALLER  THAN  ,  F5 .  I »  IX  ,  17HMI  L 
1ES  ARE  CUT  OFF) 

WRI TE (fc ,62  ) 

62  FORMAT ( 1HL ,35X,6CHL0rt  PASS  FREQUENCY  UR  LOW  CUT  WAVELENGTH  FILTER 
1C0EFF IC IENT  S ) 

wRI T  E ( 6 , 63 ) 

63  FORMAT  (  1HT  ,  3  5  X  , 

GC  TC  41 

PRINT  FOR  HIGH  PASS  FREQUENCY  FILTER 


22  WR I T  E ( 6  »  70 )  FREi 

70  FORMAT (  1HJ ,2X  f29HLCW  CUT  FREQUENCY  (IN  CPM)  =,F10.5) 

WR I TE ( 6 , 7 1 )  ALAMD1 

71  FORMAT  (  1H.J  ,2X,33HHERE  THE  WAVELENGTHS  GREATER  THAN  ,  F5  .  1 ,  IX  ,  17HM  I  L 
1ES  ARE  CUT  OFF) 

WR I T  E ( o , 72  ) 

72  FORMAT ( 1HL ,34X  ,62HHIGH  PASS  FREQUENCY  UR  HIGH  CUT  WAVELENGTH  FIlTB 
1R  COEFFICIENTS) 

WRI TE(6,73) 


73  FORMAT  {  1HT  ,  34 X  ,  62H** $$***$************ 


*v  V  ■*r  Xr  • 


:  ; 


■  r*  ■*!■* 


GO  TC  41 


PRINT  FOR  BAND  PASS  FREQUENCY  FILTER 

23  WRITE(o,70)  FREI 
WRITt(6,60)  FRE2 
WRITE(c,81)  ALAMD2, ALAMD1 

81  FORMAT ( 1HJ ,2X  ,33HHERE  ONLY  THE  WAVELENGTHS  BETWEEN ,F 5 . 1 f IX , 9HMI LES 
1  AND  »  F5 . 1 » IX, 18H MILES  ARE  RETAINED) 

WRITE(6,82) 

82  FORMAT ( 1HL ,50X,29HBAND  PASS  FILTER  COEFFICIENTS) 

WRITE (6, 83) 

8  3  FORMAT ( 1 H  T  »  5  0  X , 2  S  H  * *  * w $ * £  £ $ £  *  $ W £  $ w *  $  *  *  * ❖ ❖ ❖ £  £  £  $ ❖ ) 

41  CONTINUE 
RETURN 
END 


♦ 


» 


u'v 


« $fyi3jja 


n.  r> 


B-<4l 


SUBROUTINE  F I LTE k ( WORK , N3 , F » LF , S , L A ) 

C  IT  CLNVGLVES  THE  RC*  CR  COLUMN  VECTOR  WITH  FILTER  COEFFS 

AND  CUTS  OFF  THE  ENG  EFFECTS.  FINAL  VECTOR  IS  STORED  IN  S 

REAL  WORK (  10 )  , S ( 10  )  , F l 10 ) 

CALL  CCNVCLI WCRK ,N3 , F, LF,S, LA) 

C  TO  COT  OFF  THE  END  EFFECTS  OF  THE  FILTERED  DATA 

CALL  CUTENL){S»N3»LFtLA) 

RETURN 

END 


i  '  •  ■  -  •>  4.  • 

.  t  -4 

<  ;  .  .  i  i 


i 


- 


o  r>  o  <~,  o  r>  o 


B-42 


SUBRCU  TINE  CON  VO  L  I  X  ,  LX  ,  F ,  LF  ,  A ,  L  A  ) 

EACH  ROW  OR  COLUMN  VECTOR  X  OF  GIVER  NUMBER 
CF  POINTS  LX  IS  CONVOLVED  to  i  TH  THE  FILTER  COtFFS. 
VECTOR  F  UF  KNOWN  NUMBER  OF  POINTS  LF 
THE  RESULTING  VALUES  ARE  STORED  IN  VECTUR  A  AND 
LA  GIVES  IE  NUMBER  CF  POINTS  IN  VECTOR  A 

REAL  X ( 1 0  )  ,P(  10)  «  A (  IC) 

LA=LX+LF- 1 
Cu  1  1  =  1, LA 
A (I) =  C  .  0 

1  CONTINUE 

CC  2  1=1, LX 
CO  2  J= 1 »  LF 
K=  I  +  J—  1 

A(K)=X(  I)*F(J)*A(K} 

2  CONTINUE 
RETURN 
END 


IN 


n  r>  o 


B-43 


SLBKGUT  IN£  CUT ENC ( X » NOP T S , LF , L A ) 

REAL  X  (  1C  ) 

IT  CUTS  OFF  END  EFFECTS  OF  THE  FILTERED  DATA 

LF 1=  LF/ 2 
LF2=LA-LF 1+1 
CC  1  1=1, LF1 
X(I)  =0.0 

1  CCf\ T  I NU  E 

DC  2  1=  LF2  ,  LA 

xm=c.c 

2  CONTINUE 
RETURN 
END 


•  •' 


o  o  r>  o  o  r> 


B-44 


SLdRCUTlNE  5  P  L I T !  N  ,  M  ) 

THIS  PROGRAM  SPLITS  ThE  WRITE  STATEMENT  IN  THE  FORMAT  I  =  lfN  AND 
J=1  ,26  AT  A  TIME. 

WE  CAN  JGIN  ThE  DIFFERENT  WRITTEN  PARTS  IN  THE  FORM  OF  A  MAP. 

COMMON  T  V {  101,101) 

45  FORMAT! IX, 26F5.1) 

46  FORMAT { IHI ) 

50  FORMAT l IH J ) 

Ml=M/26 

IFIMl.LT .  1 )  GO  TO  4 
CC  1  I C  =  1 »  M 1 
I  1=126*! IC-1) )+l 
12=1  1  +  25 
DC  2  I  =  1 ,  N 

WRITE(o,45)  !TV!I , J) , J=ll,  12) 

WRITE! 6,50) 

WRITE!6,5C) 

2  CONTINUE 

k  R 1 T E ! 6 , 46 ) 

WRiTt(6»50) 

*iRITE(6»50) 

1  CONTINUE 

IF!  !M1*26)  .Evj.M)  RETURN 
4  i 3= l 26*N 1 ) +1 
DG  3  I  =  1 ,  N 

WRITE (6, 45)  < TV ( I , J ) , J= I  3 , M ) 

WR I T  E ( 6 , 50 ) 

WRITE!6,50) 

3  CONTINUE 
WRITE (6,46) 

RETURN 

END 


,  J  ...  I 


' 


. 


' 


. 

SUdkCUTINE  ZERO(X,NGPTS) 
SETS  THE  VECTOR  Tu  ZERO 
REAL  X(  10) 

CC  1  J=1,NLPTS 

X  (  J  )  =  0 . 0 

CCMIMJE 

RETURN 

END 


■ 


. 


C-l 


APPENDIX  C 

Continuation  and  derivative  processes 

The  continuation  and  derivative  operations  are  per¬ 
formed  by  using  the  fast  FOURIER  transform  algorithm. 

It  must  be  noted  that  these  processes  are  possible  only  if 
the  original  potential  field  data  is  arranged  according  to 
the  cyclic  properties  of  the  FOURIER  transforms.  For 
example,  the  actual  physical  data  A(i,j)  (for  i, j=l, 2, . . . ,n) 
must  be  set  in  such  a  way  that  the  analysis  is  performed  on 


the 

matrix  x(i. 

j) 

(for  i, j=l 

2 

3  c  3  •  * 

. , 2n-2 ) : 

(a) 

x  ( i ,  j  ) 

= 

A  ( i ,  j  ) 

for 

i,  j=l,2, . . . .n 

(b) 

x ( i , n+k) 

= 

A(i,n-k) 

for 

i=l,2,...n  and  k=l,2,.. 

• , (n-2) 

(c) 

x (n+£, j ) 

= 

A (n-£, j ) 

for 

j=l,2,...n  and  £=1,2,.. 

. , (n-2) 

(d) 

x(n+£,n+k) 

- 

A(n-£,n-k) 

for 

k , £=1 , 2 , . . . . , (n-2 ) 

The  flow  diagram  and  the  pictorial  representation 
of  the  actual  data  of  4  by  4  size  (figure  C-l  and  C-2)  would 
clarify  the  idea  further. 

The  Fortran  IV  programs  for  upward  or  downward 
continuations  and  derivatives  using  FFT  algorithm  are 


listed  as  follows: 


.  :e:.  '  ■  1  *e.  'v 


■ 


C-2 


An  A&,  A13  Ai4_ 

Aft  A  a 

A 2,  A  22  A23.  A  24 

A  2b  A  22 

A31  A31  An  A34 

A  33  A  32 

A41  A4Z  A43  A  44 

A  43  A^/i 

A31  An  An  A 34 

A  33  A  32. 

A  2.1  A  22.  A  23  A24 

A23 

(b) 


Re-arranged  data  X.  . 

1  5  J 

Figure  C-2.  Pictorial  representation 

of  A.  .  in  (a)  into 

1  3  J 

X.  .  in  (b)  for  obtain- 

i,  j 

ing  the  continuation 
and  derivatives  by 
using  F.F.T. 


Figure  C-l.  Flow  diagram  to  set  up  the 

original  data  A.  .  into  X.  . 

)  J  y  J 

to  obtain  the  continuation  and 


derivatives  using  fast  Fourier  transforms. 


■ 


FORTRAN  IV 


C-3 


UPWARD  AND  DOWNWARD  CONTINUATION  AND  CALCULATION  OF 
DERIVATIVES. 


INPUT 

ID 


=  5 


if  data  is  read  in  from  the  cards 


DELT 

Z 

N(  1 ) 

N(  2 ) 

N(3) 

XI (N( 1 ) ,N( 2 ) ) 


0  if  no  derivative  is  required 

1  if  1st.  derivative  is  required 

2  if  2nd  derivative  is  required 

N  if  Nth  derivative  is  required 

Digitizing  interval  of  the  data  set 
Negative  (elevation)  for  upward  continuation 
Positive  (elevation)  for  downward  continuation 
Size  of  the  data  set  matrix  along  x 

Size  of  the  data  set  matrix  along  y 
0  for  third  dimension 

Is  the  dimensional  matrix  to  read  in  the 


two  dimensional  data  set. 


READ  IN  THE  FOLLOWING  PARAMETERS 


1. 

INPUT, ID 

according 

to 

FORMAT ( 5X , 315 ) 

2. 

DELT 

according 

to 

FORMAT (5X,F10. 5) 

3. 

Z 

according 

to 

FORMAT (5X,F10. 5) 

4. 

(N(J),J=1,3) 

according 

to 

FORMAT(5X,3I5) 

5. 

XI (N( 1 ) ,N( 2 ) ) 

according 

to 

F0RMAT(1X,6E11 .4) 

1  .  -f- 


. 


'  '  . . 


■  .1 


o  o  o  o 


C-4 


C 

C  THIS  PROGRAM  CALCULATES  THE  UPWARD  UR  DOWNWARD  CONTINUATION  AT  ANY 

C  HEIGHT  OR  DEPTH  OF  THE  GIVEN  DATA  AT  A  PARTICULAR  LOCATION. 

C 

C  THIS  PROGRAM  ALSO  OBTAINS  1ST,  2ND  OR  HIGHEST  SET  UP  DERIVATIVES. 

C 

C  THE  GAUSS l C N  DISTRIBUTION  FOR  THE  CALCULATIONS  USED  IN  THIS 

C  PROGRAM  IS  AFTER  TSUBGI  (1959). 

C 

C  THE  PROGRAM  USES  I nC  DIMENSIONAL  FOURIER  TRANSFORM  WHICH  IS  BASED 

C  ON  THE  ALGORITHM  DEVELOPED  BY  GOOD  (1958)  AND  MODIFIED  BY  COQLEY- 

C  TliKEY  (1966)  AND  GEN TLEMAN-S ANDE  (1966). 

C 

0  Z  **  UPWARD  t-IVE)  OR  DOWNWARD  ULVE)  HEIGHT. 

C 

C  10=0  FOR  NO  DERIVATIVE 

C  10=1  FOR  1ST  DERIVATIVE 

C  i 0=2  FOR  2ND  DERIVATIVE 

C  10=3  f CK  3RD  DERIVATIVE  AND  SO  ON 

C 

C  XUI,J)  IS  THE  REAL  INPUT  MATRIX  IN  SPACE  DOMAIN. 

C 

C  X(J)  IS  THE  FINAL  S  Y  MM  ET ER I  ZED  DATA,  USING  CYCLIC  PROPORT  I ES  OF 

FOURIER  TRANSFORMS. 

FOR  COMPUTATION  PROGRAM  USES  X(J)+IY(J)  WHERE  YU)  =  0.0 
OUTPUT  RESULTS  ARE  GIVEN  AS  X(J)+IY(J)  IN  FREQUENCY  DOMAIN 
C  N(J»K,G)  ***  ARRAY  OF  DATA  IS  TWO  DIMENSIONAL  WITH  SIDE  J  BY  K» 

C  NOPTS  ***  NUMBER  OF  DATA  POINTS  (J *K). 

C  CELT  ***  THE  DIGITIZING  INTERVAL  IN  MILES. 

C 

DI MENS ICN  X ( 15000) ,Y( 15  000 ) , S ( 1500  0 ) , NC 3) ,X U  60, 60 ) 

20  FORMAT  (5X,3I5) 

22  FORMAT (1HJ,3IX,2  3HCEGREE  OF  DERIVATIVE  =  , I  5 ,23X , 24HS1 ZE  OF  OUTPUT 
1  MATRIX  =  ,15) 

23  FORMAT ( IHJ , 20X , 34HELEVAT ION  OF  CONTINUATION  FIELD  =  , F10. 5, 5X, 37HD 
1IGITIZING  INTERVAL  CF  DATA  POINTS  =  ,F10.5) 

30 

35 

36 
45 
AO 
42 
50 
60 
70 

316 

317 
320 
325 


FORMAT  { 5X  * F 1 0 . 5 ) 

FORMAT  (1X,6E11.4) 
FORMAT (  IX, lOt  13.4) 
FORMAT  (IHJ) 

FORMAT ( 1H1 ,60X ,1CH INPUT 


DATA  ) 


FORMAT (  1HT , 60  X , IGF *******  rr  ^  J 
FORMAT (  IhT  ,25X,8C( 1H*)  ) 

FORMAT i 1X,6H0ELT  -,Fd.3,8X, 1 8HNYQU I  ST 
FORMAT (  IHJ ,22X , 1 5HFREQUENCY  =2*J*,F10 
FORMAT ( lhl ,40X ,^7huPaAR0  OK  DOWNWARD 
FORMAT (4 IX, 47 ( 1H*) ) 

FORMAT ( 1HL  ,56X , 17HREAL  (SPACE)  PART) 


FREQUENCY'  =  ,F  8 . 3  ) 

.6,  IX, 15HCYCLES  PER  MILE) 
CONTINUATION  AND  DERIVATIVES* 


F  G  K  M  A  T  (  IHT  •  5  6  X  , 
READ  (5,20) 

READ  (5,30)  DEL  I 
RE AD  l  5 , 30 )  Z 


1  7  H  *  *  * ; 

r 


»  \i/  s>.  Jv  v*/  »’/•  •.'»  y.  \ 

'  -V  v  *v*  ¥  v*  v  v  r  V  ) 


INPUT, ID 


.  •  ..  .  V  i 


>  ...  —  -  .  .  *  - 


li'A 

' 

. 


' 


o  r~>  r> 


C-5 


READ  (5,20  (MJ)tJ  =  l,3) 

NGPTS  =  Nl 1 ) *N (2  J 
NN  =  N  (  1  ) 

NNN=N{  2  ) 

CQ  9  1=1, NN 

READ ( INPUT ,35 )  l XI ( I  ,  J )  ,  J=1 ,NNN) 

9  CONTINUE 
WRITE  (6,40 
WR I T  E ( b  »  42 ) 

CG  1C  1  =  1, NN 

WRITEl6,3b)  ( Xl(  I, J )  ,J=1,NNN) 

WRITE  (6,45) 

10  CGNTINUE 

WRITE  (6,50 
C 

C  SETTING  X  Ab  THE  FINAL  SYMMETERI ZED  MATRIX  OF  SIZE  ( 2N-2 ) * ( 2N-2 ) 

C  REMEMBER  HERE  X  IS  STORED  IN  A  VECTOR  FORM. 

DC  1  1=1, NN 
DC  2  J=  1  ,N NN 
Jl=(2*NN-2)*( I-l)+J 
XI J1)  =  X1(  I  , J  ) 

2  CGNTINUE 
M  =  NN-2 

CO  3  J= 1 , N  1 
J2= J 1+ J 

X( J2)  =  X1( I  ,  NN- J ) 

3  CONTINUE 
1  CGNTINUE 

N2=2*NN-2 
CO  5  K=  1 , N  1 
CC  4  J= 1 , N 2 
J3= J2+ J 

XI J3)=X( J3-(4*NN-4)*K) 

4  CONTINUE 
J2=  J  3 

5  CONTINUE 

C  END  OF  SYMMETERIZED  VECTOR. 

C  NOw  WE  RESET  N( 1)  ,N(2)  ,NOPTS,ETC. 

Ml)  =2*NN-2 
N ( 2 ) =2*NNN-2 
N  N  =  N (  1) 

NNN  =  N  l  2 ) 

NOP  T  S  =  N (1) *N( 2) 

FN  =  l./(2.*DELT) 

WRITE  16,60  CEL  T  ,  FN 
FP  =  FN/ ( FLOAT (NCPTS  )  ) 

WRITE  (6,70  FP 
CALL  ZERO ( Y , NOPTS ) 

CALL  ZEROS, NOPTS) 

CALL  ARMDFT(N,X,Y,S) 

TO  MULTIPLY  FREQUENCIES  3Y  A  FACTOR 

EXP(< I**2*J**2)*(2.0*PI*Z/(NN*DELT) ) ) ,  FOR  I =0 , 2 , 2 . . NN  AND 


. 


* 

'  : 


noon 


NNN 


C-6 


C 

C 


11 

12 


13 

14 


15 


121 


C 


250 


C 


350 


4C0 


J  —  0  ,  1  ♦  2  , 


DO  121  1=1, NN 

I F i I  .GT  .  (  N  N  /  2  +  1 )  i  GO  TO  11 

A=  I-  1 

GO  TO  12 

A=NN+1- I 

CONTINUE 

K= ( I  —  1 ) *NNN+1 

L=K+NNN- 1 

DC  121  J=K,L 

I F ( J.GT . ( (L  +  K  )/2  +  l ))  GO  TO  13 
6  =  J-1-(NN*(  I - 1 1  ) 

GO  IC  14 

B=NN  +  1-J-MNN*  (  I  —  1 )  J 
COM  1NUE 

CGM  =  EXP(  ( SORT iA**2+3* *2)  *2 . 0*  3 . 14  1 59  *Z  )  J  (FLOAT  ( NN ) *DEL  T )  ) 
IF(IC.fcG.O)  GO  TO  15 

CON TO  1= (SQRTl A**2  +  Q**2 )*( 2.0*3. 14159 ) / (FLOAT (NN)*DELT) )**ID 

CONTINUE 

X  i  J ) =X ( J ) *CCNT 

Y( J)  =  Y( JJ*CCNT 

1 F ( IC.EG.O)  GC  TC  121 

XI J)=X( J)*CCNTD1 

Y1 J1=Y( J)*CCNTOi 

CONTINUE 

J=G 

DC  250  J3= 1 , NOPTS 

J  =  J+1 

REPLACE  FOURIER  COEFFICIENTS  BY  COMPLEX  CONJUGATE. 

F  =  Y l J ) 

Y( J)=-F 

CONTINUE 

CALL  ZERO! S, NOPTS) 

CALL  AKMDFTINfX»Y,S) 

J=0 

DO  350  J4=l, NOPTS 
J  =  J  +  1 

TAKE  COMPLEX  CONJUGATE. 

GG= Y ( J  ) 

Y  (  J  )  =-GG 
CONTINUE 
J=0 

DC  400  J5=l, NOPTS 
J  =  J+  1 

X( J)=X( J ) /FLOAT ( NOPTS) 

Y(J)=Y(J)/FLCAT (NOPTS) 

CONTINUE 

RESET  NN  AND  NNN  .  AND  PICK  UP  USEFUL  SIZE  OF  THE  FINAL  RESULTS 
WE  ALSO  OBTAIN  PUNCHED  DECK  OF  ThE  FINAL  RESULTS. 


WRITE ( 6, 316  ) 


'  '  V  * 

v 

. 


KN  : 


. 


WRITE (o,31 7) 

WRITE  (6,320) 

WRITE  (6,325) 

NN=(NN+2)/2 
NNN=(NNN+2)/2 
CC  7  1  =  1  » N  N 
CC  8  J  =  1  ,  N  N  N 

XI  l  I  ,J)=X(  l  2*lSiN-2  )  *  (  I-D  +  J) 

8  CONTINUE 
7  CONTINUE 
CC  21  1=1, NN 

WRITE(6,36)  ( Xl(  I, J)  ,J  =  1,NNN) 

wRITE(7,35)  ( X  1  { I , J ) , J= 1 , NNN ) 

WR I T  E { o , 45  ) 

21  CONTINUE 

WRITE  (6,50) 

WR I TZ l 6 , 43 ) 

WRITE(6»45) 

WR I TE ( 6 , 23  )  Z  ,  0 1 L T 
WRITE! 6,45) 

WRITE ( 6 ,22 )  ID  ,NN 

STOP 

END 


- 


\ 


SLBRCUTINt  Z  E RU { X  »  NC P  T  S ) 
SETS  THE  VECTCk  TC  ZERC 
RE4L  X  (  10  ) 

CG  1  J= 1 » NCPT  S 

X( J)=C.O 

CONTINUE 

RETURN 

END 


APPENDIX  D 


D-l 


Figure  (D-l) 

Flow  diagram  for  setting  up  the  sample  map  and  test  map  data 
in  B  ( I ,  J )  and  C(I,J)  respectively,  within  the  displacement 
loop  ©  to  cover  the  entire  field  data. 


•  ■ 


_ 


' 


D-2 


<■ 


N4 


less  than 


Size 

of 

the 

entire 

matrix 

n4 

by 

n4 

Size 

of 

the 

sample 

matrix 

N 

by 

N 

Size 

of 

the 

test  matrix 

nh 

by. 

nh 

Number  of 
by  IS  i . e . 

IS  = 


steps  required  along  each  row  and  columns  given 


N4-N+N„ 

n 


where  IS3N4,N,NH  are  integers 


Consider  only  the  integer  division  of  IS. 


Figure  (D-2).  Set  up  for  displacing  the  test  map  for 

sampling  of  cross-correlations  at  representative 
sites  over  the  entire  map. 


‘ 

. 
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FORTRAN  IV 


D-3 


TWO  DIMENSIONAL  CROSS-CORRELATION  COEFFICIENT  CALCULATIONS 
FOR  TREND  ANALYSIS. 


•  •  •  • 


N4 

n(j,k,o)  .. 

NHALF  .... 

NTAO 


Size  of  the  data  matrix  of  N4  by  N4 . 

Two  dimensional  array  of  sample  map  data 
with  J  by  K  size 

is  the  size  of  the  central  core  of  the 
test  map 

Number  of  lags,  normally  taken  the  maximum 
number  of  lags  which  is  equal  to  the  size  of 
the  sample  map  data. 

Digital  interval  of  the  data  set 
1  if  unfiltered  data  is  used  to  obtain  the 
cross-correlation  coefficients 
=0  if  filtered  data  is  used 
TV(N4,N4)  ..  Dimensioned  matrix  to  read  in  the  complete 

data  set 


DELT 

ISS 


READ  IN  THE  FOLLOWING  PARAMETERS 


1. 

N4 

according 

to 

F0RMAT(5X, 415) 

2. 

N(3) 

according 

to 

FORMAT<5X,4l5) 

3. 

NHALF 

according 

to 

FORMAT (5X,4l5) 

4. 

NTAO 

according 

to 

FORMAT(5X,4l5) 

5. 

DELT 

according 

to 

FORMAT ( 5X , F10 .6) 

6 . 

ISS 

according 

to 

FORMAT(5X,4l5) 

7. 

TV(N4 ,N4 ) 

according 

to 

format(ix,6eii.4) 

- 


. 


. 


oooo  f*»  <“>00  ooooooonoooo  000000  no  r-.  ooo  r-  o  o  o  o  o  o  o 
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THIS  PROGRAM  ObTAINo  The  TWO-DIMENSIONAL  CROSS-CORRELATION 
C F  THE  GIVEN  LATA. 


BAShC  ON  THE  ALGORITHM  OF  GOOD (  1958)  AS  MODIFIED  BY  COOL E Y- T UKE Y 
(  19  6  6)  AND  GENTLEMAN-SANuEI  196  6) 

FOR  CRGSS-CURRELAT ION,  FIRST  SET  OF  DATA  IS  READ  IN  'BY'  VECTOR 
WHICH  CONSISTS  CH  SIZE  NI1)*N(2),  AND  THE  DATA  WITH  WHICH  IT  IS 
TO  dc  CURRELATcG  IS  ENTERED  IN  VICTOR  '  D  V  '  a  HIGH  IS  CF  THE  SAME 
SIZE  AS  'BY' 

N(JfK,C)  ***  ARRAY  OF  DATA  IS  TWO-DIMENSIONAL  WITH  SIZE  J  BY  K 

NhALF  IS  THE  VALUE  CF  THE  SIZE  OF  CENTRAL  MATRIX  WH ICH  IS  T  3  BE 
CRCSS_COkR tL A T EL  Wlfh  THE  LARGER  MATRIX  CF  SIZE  NN. 

N  H  a  L  F  IS  HALF  THE  VALUE  Or  N  N  IN  T  hi  E  CASE  OF  EVEN  N  N  * 

NHALF  IS  ODD  VALUt  IN  THE  CASE  CF  GDC  NN . 

FCR  CONVENIENCE  IT  IS  PROPOSED  TO  CHOOSE  NN  AS  ODD. 

(NN-NHALF)/2= INHALE- 1)  SHOULD  GIVE  NN  FUR  A  PARTICULAR  GIVEN 
VALUE  CF  NHALF. 

N4  ***  SIZE  CF  THE  DATA  MATRIX 

CELT  ***  THE  DIGITIZING  INTERVAL  IN  MILES 

NUPTS  ***  NUMBER  OF  DATA  POINTS  i J*K ) =N I  1 j*N ( 2 ) 

N  TAG  ***  NUMBER  OF  LAGS  THAT  ALSO  MEANS  THAT  WE  ADD 


I  SS 


SU  MANY  ZEROS.  MAXIMUM  LAGS  CAN  BE  EQUAL  TO 
THE  DIMENSION  NIL)  OR  M2)  GF  THE  DATA  POINTS 

READ  IN. 

CORRELATION  AND  PGrttfR  SPECTRA  ARE  OBTAINED  ON 
UNFILTERED  DATA 


ISS  =  0 


DIMENSION  WORK! (50,50)  , WORK 2 (50,50)  ,TVtl04,104)  , TEMPI  104,104) 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 


ANY  CHANGE  IN  TV(1C4,104)  AND  TE M P  I  104 , 104 )  DIMENSIONS  NEED  OTHER 
CHANGE  IN  THE  MAIN  PROGRAM,  THAT  IS,  JDIME-104  CARD  IS  TO  BE 
CHANGED. 

ALSO  MATRIX  DIMENSIONS  IN  THE  SUBROUTINES  WOULD  NEED  CHANGES. 


- 


> 


' 


.  - 


'  ' 


7 

8 

10 

20 

29 

3C 

35 

36 

45 

46 

5C 

6  C 

7  C 

73 

76 

77 

78 

79 

80 

Cl 
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C  G  M  iv  C  j\  CELT 
COMMON  M3) 

COMMON  NN , NNN  »  NGP  T  S  » NTAG  »  NHALF 
REAL  A  X  ,  B  Y  tCXjDY  » S  , X ,  Y  » 0  E  L  T 
INTEGER  N,NN,NNN,NCPTS,NTAO 

FORMAT!  46X,  ' CROSS_CORRELAT I  ON  UF  THE  INPUT  DATA*  ) 
FORMAT  l  1HT  » 4  5X  »  3 5  (  1  H  )  ) 

FORMAT ( 5X,4i 5 ) 

FORMAT (5X,F1C. 6) 

FORMAT (5X»I5»2F1C.5) 

FORMAT! IX, 4E 16.8) 

FORMAT (  1X»6E1 1 .4  ) 

FORMAT ( IX, 10E13.4) 

FORMAT { 1HJ  i 
FORMAT (  1H1  ) 


FORMAT {  1HT 
FORMAT ( 22X 
FORMAT {  1HT 
FORMAT ( 23X 
FORMAT (  lri  J, 
FORMAT ( 1HJ 
FORMAT { 1HJ 
FORMAT  1  lrtj 
1ELAT ICNS  = 
FORMAT (  1HJ 
IONS  ,  13) 
FORMAT { 1 H 1 
FORMA  TI  1H  T 
RtACi 5, 10) 

R  EAD  I  5,10) 


WAVELENGTH-, F  8  •  3 ) 


25X,8C(1H*)) 

6  h  D  c  L  T  =»Fti.3,8X,19HNYCUIST 
2  1  X  ,  •  I  S  S  =  ‘  ,15) 

• ANORM  =  ’  ,  E16.8  ) 

2  2  X ,  4  SIZE  OF  THE  READ  IN  MATRIX  -«  ,15) 

‘FIRST  SU8FATRIX  GRID  FOR  CRCSS-CORRELAT I  ON 


22  X  , 
22  X  , 
2  2  X  , 
,15) 
22X  , 


=  4  ,  I  5  ) 

•SECOND  SUB MATRIX  FUR  CROSS-CORRELATION  =  ’  ,  I  5  ) 


' SUB MAT  K  IX  SIZE  FOR  THE  OBTAINED 


UL  C RO S  S-CU HR 


‘TOTAL  MATRIX  SIZE  OF  THE  0 8 T  A I  JED  CKOSS-CCR 


RELAX [ 


60 X , '  INPUT  DATA4 
6CX,1C(1H*)) 

N4 

(  M  J  )  ,  J  =  1 , 3  ) 


R  E A C ( 5 , 1 0 )  NHALF 
REAL ( 5 ,  10)  NT  AC 
R  EAD i 5 , 20  )  CELT 


R  E  A  D ( 5 , 1 0  )  ISS 
NCP  T  S  =  N { i ) *N ( 2  ) 


NN  =  N  1  1  ) 
NM\  =  M  2  ) 


JC IME= 104 

CALL  ZEROIJITEMP, JDIME, JDIME) 

CALL  ZEROIJITV, JDIME,  JDIME) 

CO  i  I  =  1 , N  4 

REAL ( 5, 3  5 )  (  TV (  I , J )  » J  =  1  »  N  4  ) 

CON  T I NUE 

WE  WRITE  OUT  THE  VALUE  CF  ISS,  INDICATING  WHETHER  THE  CORRELATIONS 
TO  BE  OBTAINED  ARE  ON  THE  FILTERED  DATA  UR  UN  THE  UN FILTERED  DATA. 

WRITE(6,7C)  ISS 

TO  CALCULATE  AND  PRINT  GUT  THE  NYQUIST  FREQ.  AND  OTHER  NECESSARY 
DATA. 


‘ 


‘ 


S  l.  , 


■ 


. 
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c 

F  N=  1  ./ ( 2 . *CELT  ) 

WRITEi6,6G}  U  E  L  T  ,  F  N 
C 

Vs  R  I  TE(6,46) 

VsRITE  (6,o01} 

VsR  1  T  t  (  6 , 602  } 

CALL  SPL  I  T ( N4 , N4 , T V  ) 

C  5 

C  TCi  GET  A  IK  CRCSS-CCRKELAT I CN  AND  CROSS-POWER  SPECTRA  6 Y 

C  TAKING  A  MATRIX  CF  SIZE  N ( 1 ) *M 2 )  AT  A  TIME,  WE  SET 

C  UP  A  LGCP  SYSTEM 

C 

C  NUMBtR  CF  STEPS  IN  A  ROW  OR  IN  A  COLUMN. 

I S  TE  PS= ( N4-NN+NHALF) /NHALF 
DC  3  I  X=  1 »  I  STEPS 
DC  3  JX=1,ISTEPS 
DC  2  1=1  , N N 
CC  2  J= 1 , N  N N 
K 1= (  IX-  1  ) -NHALF*  I 
K2  = ( JX-  1 ) *NHaLF+J 
W  C  i<  K  2  (  I  »J)=TV(Kl,K2) 

WCRK1( I , J ) —  0  •  C 
2  C  C  N  T  I N  U  E 

REMOVE  D.C.  FROM  EACH  SAMPLE  MAP. 

CALL  DC  GUT  (W0RK2, 1  ,NN) 

K 1=  I  NN-NFI ALF  )  /  2+  1 
K  2  = ( NN+NHALF  )  /2 
CG  4  I  =  K 1 , K2 
CC  4  J=  K  1 , K 2 
W  G  R  K  1  (  I  ,  J  )  =  W  C  R  K  2  (  I  ,J  ) 

4  CONTINUE 

INITIALLY  WE  TRANSFER  the  DATA  IN  THE  I  MAG.  VECTORS  *  BY  *  AND  » DY  *  , 
FROM  WHICH  u E  «ILL  TRANSFER  TO  ’AX'  AND  *CX«  AFTER  ADDING  T^E 
NECESSARY  ZEROS  FOR  CRCSS-CGRREL ATI  ON . 

CALL  Z£RO(DY,NOPTS) 

K=I 

CC  1C4  1=1,  NN 
CC  IC4  J=1,NNN 
DYIK)  =  WCHK1(I  ,J) 

K  =  K+  1 

104  CONTINUE 
C 

CALL  ZEKCtBY  , NC  P  T  S  } 

K  =  1 

CC  102  1=1, NN 
CC  1C2  J  =  1 ,  NNN 
BY ( K )  =  WCRK2 ( I  ,  J ) 

K  =  K  +  1 

1 C  2  CONTINUE 
C 


;  .  •  *•  * 


.  »•  ■  ' 


v.  £ 
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. 
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' 
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C  NO*  «E  CALCULATE  CRCSS-CORREL  AT  I CN  AND  POWER  SPECTRA 

C  ■  A NO  PRINT  OUT  THE  RESULTS  FOR  EACH  CASE 

C 

CALL  CRCSS 

c 

NN=NN-NTAC 
NNN  =  NNN  —  MAC 
N ( 1  )=NN 
N  i  2  )  =  N  N  N 
N G P  T  S  =  N  ( 1 ) *N ( 2  ) 

W  E  STORE  THE  USEFUL  CORRELATIONS  OF  NHALF  3Y  NHALF  SIZE  FROM 
VECTOR  X  TO  MATRIX  TEMPI  I »J).  AND  FINALLY  WE  WILL  WRITE  OUT  THE 
MATRIX  TEMPI  I  ,  J  )  . 

MHALF  =  NhALF~l 
GO  11  I- 1 »  M HALF 
DO  11  J= 1 , N 1HALF 

J 1= I { NN+NT AG-NHALF+I j  * ( NN+NT AG ) + (NN  +  NTAC ) -NHALF+l+J ) 

WORK  1 ( I  »  J  )  =  X  (  J  1  ) 

CO  11  K= 1 , NHALF 
K 1=NHALF~1 +K 

K 2— (  { NN  +  NTAO-NHALF  + I  ) * ( NN  +  NT AO  )  +  N ) 

WORK  1 1  1  »  K 1  )  =  X  (  K  2  ) 

11  CONTINUE 
CO  12  1=1, NHALF 
CC  12  J=l, NHALF 
I 1=NHALF~1+I 
j  1  =  (  (  I  —  1 )  *  (  N  N  +  N  T  A  0  )  +  J  ) 

J2=NHALF-1 +  J 
WORK  i( I  1,  J2)=X( J1 J 
CO  12  K= 1 , N 1HALF 

K 1= (  (I- 1 ) * ( NN+NT AG )  +  ( NN  +  NTAC  j-NHALF  +  1  +K ) 

WORK  II I1,K.)  =  X(K1  ) 

12  CCNT INUE 
N 2h A LF=  ( 2*NHALF  )  -1 
OG  5  1  =  1  , N  2  H  A  L  F 
CO  5  J=l,N2hALF 
K  1= {  IX-1)*N2HALF  +  I 
K  2= I JX-  1 ) *N2HALF+J 
TEMP l K 1  ,K2 )  =  W C R K 1 (  I, J) 

5  CONTINUE 
3  CONTINUE 

N  T  =  I  STEPSON 2 FiALF 

NORMAL IZAT ION  OF  THE  F  INAL  RESULTS  CF  C RCSS-CORR E L AT  I ONS . 

TL  OBTAIN  THE  MAXIMUM  ELEMENT  FROM  THE  COMPLETE  SET  OF 
CROSS- CCRR ELAT  IONS. 


ANCR«V  =  ABS  (TEMPI  1,1)) 

CO  12  1=1, NT 
CC  13  J=  1 , NT 

IF l AES  I  TEMP ( I  ,  J)  )  .GT.AMjKM)  GO  TO  71 


. 
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■ 
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■ 
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GC  TC  13 

7  1  ANGRM  =  AtiS  (  T  t  M  P  (  I  ,  J  )  ) 

13  CONTINUE 

1F(  ANCRM.EG.0.0)  GO  TC  72 

CIVICE  BY  ANCRM  TC  NORMALIZE  The  RESULTS. 

MULTIPLY  ThE  NORMAL  I  ZEC  VALUE  BY  1000.0  FOR  FLUTING 

CC  14  1=1, NT 
CC  14  J= 1 , NT 

TEMPI  I  ,  J  )=1CCC.G*  l  TEMP  (  I  ,  J  )  /  ANCRM) 

14  CONTINUE 

END  CF  NORMALIZATION. 


72  W  R  1 1  E  I  6 , 7  3  )  ANCRM 


PRINT  CUT  OF  SCME  PAR AMeT tKS 


1  5 


N4 

M\ 

NHALF 

N2HALF 

NT 

CGMPLE1 E 


WR I TE ( 0  ,  76  ) 

'a  R  I  T  E  (  6 , 77) 

WRITE(6,7d) 

WR i T  E ( 6 , 79 ) 

WRITE (6, BO) 

TC  PRINT  GUT 
to  R 1 T  E ( 6 , 46 ) 

W  R  I  T  E  l  6 , 7  ) 
wR I T  E ( 6 , 8 ) 

call  SPLIT! M ,NT,  TeMP  ) 

LC  15  1=1, NT 

*RITE(7,35)  ( TtMPt I , J ) , J=1 ,NT ) 

CQNT  INUE 
S  TC  P 
END 


CRQSS-CGRkELATI ON  RESULTS 


PURPOSE. 


% 


“  '  ■*% 


r9 


s 
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SUBKCUT  I  Nfc  CROSS 


C 

C 

c 

c 

c 

c 

c 

c 


THIS  SUBROUTINE  CALCULATES  CROSS-CORRELATION  AND  POWER  SPECTRA 
AND  PRINTS  RESULTS 


ANY  CHANGE  GE  DIMENSION  uARD  NEED  ALSO  A  CHANGE  IN  THE 
I D I M£=2  500  CARD. 


COMMON  AX ( 2  50  0 )  »  BY l 2  50  0 ) ,CX ( 2  500 ) , D Y ( 2500) , S (  2500 )  ,  X ( 2500 )  , Y I  2 500 ) 
COMMON  CELT 
COMMON  N  I  3  ) 

COMMON  NN , N N N  » N 0 P T S  f NTAC, NHALF 
REAL  AX,BY,CX,DY  ,S,X, Y, OELT 
INTEGER  N  »  N  N  *  N  N  N »  N  0  P  T  S ♦ N  T  A  Q 

HIRST  wE  SET  ALL  VALUES  OF  ThE  *AX#  AND  *CX'-  ARRAY  EQUAL  TO  ZERO 

ID  I  ME=25G0 

CALL  ZERO ( AX , IDI ME ) 

CALL  ZERGICX, IDI ME) 

THE  MAT  ICES  *  BY  *  AND  ' DY *  ARE  IN  THE  NORTHWEST  QUADRANTS, 

FROM  WHICH  WE  aISH  TO  FORM  LARGE  MATRIX  *AX»  AND  '  CX'  WITH 
ZEROS  IN  OTHER  QUADRANTS 

CO  2  K  K= 1 , NN 
K  =  KK-  I 

M1=N*(  NN+NTACM-i 
M2=K*( NN+NTAC ) +NN 
CO  2  J=M1,M2 
M3=J-l K-NTAC) 

AX(J)=BY(M3) 

CXI J  )=DY( M3 ) 

2  CONTINUE 
NN  =  NN  +  NT  AC 
NNN=  NNN  +  N  TAG 
N  (  I )  =  N  N 
M  2  )  -  N  N  N 
N0PTS=Ntl)*NI2) 

TO  OBTAIN  FOURIER  TRANSFORMS 

CALL  ZERO ( BY , NOPT  S ) 

CALL  ZERO ( S , NCPTS ) 

CALL  ARMDFT (N, AX, BY, S) 

CALL  ZERu(CY,NuPTS) 

CALL  ZERO! S, NCPTS) 

CALL  ARMDFT{N,CX,DV,S) 

WE  CALCULATE  CROSS-POWER  AND  STORE  REAL  PART  IN  X-VECTOR 

AND  THE  I M AG.  PART  IN  Y-VECTOR.  THUS  WE  OBTAIN  CROSS  POWER  =X(J)+I 


V  f 


■ 


‘ 


. 


. 


i  S  •  ,• 


• 
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J  =  C 

DC  8C  KK=1,NN 
CC  tiC  J J= 1 1  NNN 
J  =  J+  I 

X(J)=AX(J)*CX(J)+BY(J) *DY( J ) 

Y(  J)=BY{ J)*CX( J)-AX( J) *0Y( J) 

8C  CGMIMJE 

TC  OBTAIN  CROSS- CORRELATION  WE  HAVE  TO  TAKE  THE 
INVERSE  FOURIER  TRANSFORMS  OF  X{J)+IY(J) 

FIRST  WE  REPLACE  FOURIER  COEFFS.  BY  COMPLEX  CONJUGATE 

CALL  CON JU ( Y  ,  NGP I S ) 

CALL  ZERO { S  »  NCPT  S ) 

CALL  ARMUF  T I N  f  X , Y  #  S ) 

MULTIPLYING  FACTOR  CF  INVERSE  FOURIER  TRANSFORMS 
J  =  C 

CC  90  J  1= I »  NOPTS 
J  =  J+1 

X  (  J  )  =  X  { J)/FLCAT (MGPTSi 
Y(J)=Y{J)/FLuAT  IN  OPTS) 

90  CONTINUE 

TO  COMPLETE  THE  INVERSE  FOURIER  TRANSFORM  WE  SHOULD 
TAKE  THE  COMPLEX  CONJUGATE  AGAIN.  ACTUALLY  IT  IS  NOT 
NECESSARY  AS  WE  ARE  INTERESRED  IN  CRGSS-CORRELA T  l  ON  WHICH 
IS  REAL  AND  FCR  THIS,  IMAG.  PART  SHOULD  EE  ZERO 

CALL  CCNJU ( Y , NOPTS ) 

TO  MULTIPLY  WITH  THE  NORMALIZING  CORK E LAI I  UN  FACTOR 

J=Q 

CG  ICC  J'2=i,  NOPT  S 

J  =  J  +  1 

X  (  J  )  =  X ( J ) /FLOAT ( NHALF^NHALF) 

Y(  J)=Y( J) /FLOAT (NHALF  +  NHALF) 

100  CONTINUE 
C 

RETURN 

ENC 


. 


SUBROUTINE  ZERO  I  J ( wCRK» N , M ) 

IT  ZERO*  S  ThE  MATRIX  WCRK(I,J) 
REAL  WORK!  104, 1C4) 

CO  1  1=1, N 

CO  1  J  =  1 ,  M 

WORK!  I , J)  =  0.0 

CONTINUE 

RETURN 

END 


1* 


SLBRlUT  l  Nt  ZERGt X, NGPTS) 
SETS  THE  VECTCR  TC  ZcRC 
REAL  X (  1 0 ) 

CG  1  J=  1 1  NCPTS 

X ( J  >  =0 . 0 

CONTINUE 

RETURN 

END 


V 

SUBROUTINE  CON JU ( Y  »  NOP  T  S ) 

TAKES  The  COMPLEX  CONJUGATE  OF  THE  IMAG.  PART 
REAL  Y ( 1C ) 

J  =  G 

DC  l  J 1  =  1 »  NCPT  S 
J  =  J+  1 
F  =  Y ( J ) 

Y ( J ) =— F 
CONTINUE 
RETURN 
END 


.  .  - 


.  . . 

•  . 
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SUBROUTINE  SPLIT(N,M,X) 

C 

C  THIS  PROGRAM  SPLITS  THE  H.  R I  T  E  STATEMENT  IN  THE  FORMAT  1  =  1, N  AND 

J= 1 , 26  AT  A  TIME. 

WE  CAN  JOIN  THE  DIFFERENT  WRITTEN  PARTS  IN  THE  FORM  OF  A  MAP. 

REAL  X( 1C4 , 1 C  4 ) 

45  FORMAT ( IX, 26F5.0  ) 

46  FORMAT (  1HI  ) 

50  FORMAT {  1HJ  ) 

Ml=M/26 

IF(M1.LT.  1  )  GO  TC  4 
DC  1  I C  = 1 »  M  1 
I  1=1  26*(  IC-1 )  ) +1 
12=11*25 
CO  2  1=1, N 

wR I TE  t  6 , 45 )  (X( 1, J) ,J=I1,I2) 

WKITE(6,50) 

WRITE ( 6, 5G  ) 

2  CONTINUE 
WRI TE (6,46  ) 

WR I T  E ( 6 , 5G  ) 

WRITE(c,50) 

1  CONTINUE 

IF((M1*26).EQ.M)  RETURN 
4  I3=(26*M1)+1 

DU  3  1=1, N 

WRITE (6,45)  IX(  I, J) ,J=I3,M) 

WRITE (6,5C) 
wRI TE ( 6 , 50 ) 

3  CONTINUE 
wR  I  TE ( 6 , 46 ) 

RETURN 
END 


. 
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APPENDIX  E 

1 .  Least  squares  fit  (for  a  straight  line)  using  first 

degree  polynomial. 

By  the  method  of  least  squares  one  can  assign  weights 
to  the  various  points  of  the  graph  and  determine  the  best 
fitting  straight  line  through  them.  A  linear  relation  for 
a  straight  line  can  be  expressed  as: 


y  =  a  +  bx  . (E-l ) 

In  equation  (E-l)  Tb’  is  the  slope  of  the  line  and  ’a' 
gives  its  intercept.  Suppose  we  have  n  by  n  equally 
spaced  matrix  whose  coordinates  are  at  (xi  3yi ), (xi ay2 , 
(xi,yn);  (x2  5y i ) ,  (x2 ,y2 (x2 ?yn) .  and  (xn,yi)3  (xn,y2) 
. ...,(x  ,y  ).  The  weighting  factors  for  these  coordinates 
are  denoted  by  w(x1,y1),  w(x i ,y2 ),.... ,w(x i 3yn) ;  w(x2,yi), 

w(x2 ,V2 ) - ,w(x2 ,yn) ; . . .  and  w(xn,yi)3  w(xn,y2 ),.... ,w(xn,yn) 

It  can  be  easily  shown  that 


a  = 


Ew.y.Zw.x:  -  Ew. y.x.Zw.x. 

iJ  1  li _ iJi  l  li 

Ew. Zw.x?  -  (Ew.x . ) 2 

l  li  li 


and 


Ew.y.Ew.x.  -  Ew.y.x.Ew. 
(Ew.x.)2  -  Ew . x  ? Ew . 

li  ill 


(E-2) 


b 


(E-3) 


. 


■ 


. 


E-2 


2 .  Equation  of  a  normal 

The  equation  of  a  normal  to  the  straight  line  given 
by  equations  (E-l),  (E-2)  and  (E-3),  is 


y-y "  =  -  1  (x-x") 

b 

or 


y  =  y'  +  x'  -  x  . (E-4 ) 

b  b 


If  x"  and  y "  are  the  coordinates  of  the  maximum  point 
through  which  the  normal  is  to  be  found,  then 


a "  =  l(x"+by") 
b 


(E-5) 


3 .  Minimum  distance  between  the  two  points 

It  is  known  that  the  minimum  distance  from  any  point 
Pi(xi,yi)  to  a  point  p(x,y)  on  the  line 

ax+by+c  =  0 

is  given  by 

ax i +by i +c 

PiP  =  - 

/ (a 2  +b 2 ) 


(E-6) 

( E—  7 ) 


Thus  the  distance  d  from  any  point  (x,y)  to  a  point 
(xi,yi)  on  the  normal  line  of  equation  (E-5)  is  easily 
obtained.  Comparing  equations  (E-5)  and  (E-6)  we  have 
a  =  1,  b  =  b  and  c  =-a''b,  substituting  these  values  in 


Equation  (E-7)  we  obtain 


•* 


, 


. 


■ 


■  ■  *  *2 : 


E-3 


d  =  x^y-<b  . (e^8) 

/ (l+b  2  ) 


From  equations  (E-5)  and  (E-8),  we  obtain 


(x-xi  )+b(y-y i  )  . (E-9) 

d  =  - 

/  (1+b2  ) 


Where  xj ,yi  represents  the  coordinates  of  the  last  point 
through  which  the  equation  of  the  normal  line  passes. 

It  is  possible  that  in  the  evaluation  of  equations 
(E-3)  or  (E-9)  the  denominator  may  be  zero.  To  avoid  such 
a  situation,  we  may  consider  equation  (E-l)  in  the  following 
form  i . e . 


Where  a  =  and  b 

b  2 

b  i 

~  b  2  * 

for 

|  b  2  |  <+00 

and 

8 

+ 

V 

r—i 

-Q 

(E-10) 


Equation  of  a  normal  becomes 

b2x^+biy^  -  (biy+b2x)  =  0  . (E-ll) 


and  the  minimum  distance  between  the  two  points  can  be 
written  as 

b2xi+biyi  -  (b iy+b 2x ) 


d 


/  Cbi 2+b  2  2 ) 


(E-12) 


'  *- 


. 


■ 
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In  our  calculation's,  equation  (E-12)  has  been  used. 

The  sign  of  d  in  equation  (E-12)  will  be  the  same  on 
one  side  of  the  normal  line  and  opposite  on  the  other  side 
of  the  line.  We  have  used  this  criteria  for  scanning  the 
maximum  points  in  a  particular  direction  and  rejecting  in 
the  opposite  direction  i.e.  on  the  other  side  of  the  normal 
line.  The  program  is  designed  to  compare  the  distance 
between  the  nearest  points  to  the  normal  line  with  the 
distance  between  the  last  two  maxima  point  coordinates. 

4 .  Least  squares  fit  using  third  degree  polynomials 

Consider  the  following  3rd  degree  polynomial  equation 
to  fit  the  trend  points  as  obtained  from  the  cross-correla¬ 
tion  matrix. 


y  =  B1+B2X+B3x2+B4X3  . (E-13) 


Bi,B2,B3  and  B4  are  constants  and  are  determined  from  the 
coordinates  of  the  n  trend  points  as  obtained  by  a  least 
square  procedure.  In  other  words  Bi,B2,B3  and  B4  are 
determined  in  such  a  way  that 

n 

E  w.(6y.)2  =  minimum  . (E-l4) 

i  =  l  1  1 

or 

n 

E  w. (y . -Bi-B2x . -B3x?-B4x? ) 2  =  minimum  . (E-15) 

i=l  1  1  ill 


■' 

■ '  •  s . 
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Where  w^  are  the  weighting  factors  for  the  various 

Differentiating  equation  (E-15)  with  respect  to 
Bj  jB2,B3  and  B4  respectively,  we  obtain  the  following  equa¬ 
tion  in  a  matrix  form: 


V  0 

Ew .  x . 

l  l 

Ew .  x . 

l  l 

Ew .  x  ? 

l  l 

Ew.  x  ? 

l  l 

B  i 

V  0 

Ew . y . x . 
i°i  i 

Ew.  x  . 

l  l 

Ew.x? 

l  l 

Ew^x^ 

Ew^x? 

B2 

EwiyiXi 

Ew .  x  ? 

l  l 

Ew.  x  ? 

l  l 

Ew.  x1? 

l  l 

Ew .  x  ? 

l  l 

b3 

ZwiyiXi 

Ew .  x  ? 

l  l 

Ew .  x  ? 

l  l 

Ew .  x  ? 

l  l 

Ew.  x  ? 

l  l 

b4 

2wiy1x^ 

(E-16) 


More  briefly. 


in  matrix  notation  equation  (E-l6)  becomes 


3-g  =  6 


where 


n 

E 

i  =  l 


w .  x 
1 


(j+k-2) 

i 


E 

1 


w .  y  .  x  . 

l  l 


£-1 


(E-17) 


§  -  [Bi ,B2 ,B3 ,B4 ] 


It  is  to  be  noted  that  the  matrix,  ^  is  symmetric  and  to 
evaluate  it  one  needs  to  perform  only  7  summations 
[i.e.  Sp  =  E  w^x^  where  p  =  1,2,. ..,7].  Thus  using  any 
program  for  solving  the  set  of  simultaneous  equations,  it  is 
easy  to  obtain  the  coefficients  Bi,B2,B3  and  B4  from 
equation  (E-17).  Knowing  these  constants,  y  values  can  be 
calculated  for  various  x  values  using  equation  (E-13). 


V  *1 


‘ 


. 


These  values  of  x  and  y  provide  the  required  3rd  degree 
polynomial  least  square  fit  through  these  points.  In  the 
present  study,  equation's  (E-17)  were  solved  by  using  the 
Wilkinson's  method  for  the  solution  of  ill-conditioned 
linear  simultaneous  equations  (Subroutine  CS009A  by 
K.F.MAY,  Dept,  of  Computing  Science,  University  of  Alberta). 


5 .  Transformation  of  origin 

In  equation  (E-13),  x  and  y  have  the  origin  in  the 
NW  corner  as  shown  in  figure  (E-l),  with  x-positive 
eastward  and  y-positive  downward. 

For  convenience,  we  may  transform  the  origin  to  the 
centre  of  the  matrix  as  indicated  in  figure  (E-2). 

By  substituting 
x  =  x  +  t 


and 


y  =  -y  +  t 


,  ,  ,N+lx 

where  t  =  (— — ) 


for  N  as  odd 


we  obtain  the  following  equation. 


—  2  _  _  3 


y  =  -Bi-(B2-l)t-B3t2-B4t 3-(B2+2B3t+3B4t2)x-(B3+3B4t)x  -B4x 


(E-18) 


Thus  equation  (E-13)  is  replaced  with  equation  (E-l8)  for 
3rd  degree  polynomial  fit  with  (0,0)  at  the  centre  of  the 
odd  matrix,  with  conventional  signs. 
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Figure  E-l 


Figure  E-2 


Transformation  of  origin  of  the 
coordinate  system 
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Figure  (F-l):  Flow  diagram  for  automatic  trend  analysis. 

Main  Program 
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SUBROUTINE  TREND 


P-2 


RETURN 
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SUBROUTINE  SCAN 
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FORTRAN  IV 
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TREND  ANALYSIS  PROGRAM  USING  CROSS-CORRELATION  COEFFICIENTS. 


NT  ....  Size  of  the  complete  correlation  data 

N  ....  Size  of  each  cross-correlation  coefficients 

matrix 

NHALF  ....  is  the  size  of  the  central  core  of  the 

test  map 

TEMP(NT ,NT) . . . is  the  dimensioned  matrix  to  read  in  complete 

set  of  correlations  for  the  entire  data 


READ  IN  THE  FOLLOWING  PARAMETERS 


1.  NT,N3NHALF 
TEMP(N4  ^4 ) 


according  to  FORMAT( 5X, 315 ) 
according  to  FORMAT ( IX 3 6E11 . 4 ) 


2. 


..  - 


♦  .-.I 


- 


. 


non  o  o  n  r>  n  o 


*V5 


C  THIS  PROGRAM  OBTAINS  THE  MAIN  TRENDS  PROM  EACH  SET  GP 

C  SUO-COKRELATICN  MATRIX 

C 

C  IT  PRINTS  OUT  THE  ’FIRST  AND  SECOND  MAX.  PO I N T ' , COORD  I N AT ES  UP  ALL 

C  THE  MAX.  POINTS  ON  WHICH  THIRD  DEGREE  POLYNOMIAL  EQU.  IS  FITTED, 

C  AND  PRINTS  CUT  THE  MATRIX  EQU.  C { 4 , 4 ) *B ( 4 )  =  D ( 4 ) 

C  WHERE  B(4)  CONTAINS  THE  SOLUTION  OF  4  UNKNOWN 

C  CONSTANTS  IN  THE  THIRD  DEGREE  POLYNOMIAL  EQU.  Y  =  BI*-B2^X«-B3*(X*^2) 

C  +a4*lX**3) 

c  it  also  prints  our  each  sub-correlation  matrix 

C  AND  THE  AABSCISSEA  AND  ORDINATE  VALUE  OF  THE  PITTED  CURVE. 

C  N*  CORNER  IS  CONSIDERED  AS  11,1)  WITH  ABSCISSA  EASTWARD 

C  AND  GROIN ATE  DOWNWARD  AS  POSITIVES. 

NT  SIZE  UP  THE  TOTAL  CROSS-CORRELATION  MATRIX  IN  TEMP (NT,  N  T  ) 

N  SIZE  OP  The  SU6-CROSS-CCRRELAT ION  MATRIX  IN  X { N i N ) 

NHALP  SIZE  GP  THE  SMALL  TEST  MATRIX  IN  ThE  ORIGINAL  DATA 
FROM  WHICH  EACH  SUB— CROSS— COKRELAT I GNS  ARE 
OBTAINED. 

DIMENSION  TEMPI  IC4, 104) ,Y(200) 

COMMON  X  {  2  b  ,  2  5  )  , N 

REAL*4  b  (  4  ) 

INTEGER  N 

ANY  CHANGE  IN  COMMON  CARD  MUST  ALSO  BE 
REPLACED  IN  SUBROUTINES  ’TREND’  AND  *  SCAN* 

READ ( b , 20 )  NT,  N, NHALP 
20  FORMAT { 5X, 3  I  5 ) 

DC  1  K  =  1  ,  N  T 

RfcAC(5»35)  (  T  E  M  P  {  K  »  L  )  , L  = 1 »  NT ) 

I  CONTINUE 
35  FORMAT { iX,6EIi. 4) 

ISTEPS=NT/N 
CO  2  I  K=1  ,  I  STEPS 
DC  3  JK-l.ISTEPS 
CO  4  I L  = 1 ,  N 
/  CO  5  J L  =  I , N 

Kl=  (  IK- 1 ) *N  + I L 
K2= ( JK-1 ) *N  +  JL 
X(  IL  ,JL)=T£MP(K1 ,K2 ) 

5  CONTINUE 
4  CONTINUE 
6ABY=C.O 

CALL  TREND  ( B  ,BAbY ) 

CALL  SPACE  (2) 
wRl T  E ( 6 , 9 ) 

9  FORMAT  (  1HJ ,42X,  ‘  INPUT  SUB  CROSS-CORRELATION  MATRIX’) 

W  R  i  T  E  (  6 , 1  0  ) 

10  FORMAT  {  1HT  ,42X,34(  I  Pi*  )  J 
DC  II  K— 1 , N 

WRITEI6, 2b) I  X ( K , L )  ,L-i  ,N) 

II  CONTINUE 

2b  FORMAT (  IHJ  ,  30X , 16F6. C ) 
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CALL  SPACE { 2 ) 

IF l BABY  .EG.  I  .C )  GC  TO  J 
i»N  R I  T  E  (  6  »  1 6  ) 
toRITfc(6,17) 

»\  R  I  T  E  (  6  ,  18) 

*  R  I  T  c  (  6 , 19) 

CALL  SPACE(l) 

16  FORMAT (  1HJ  ,36X,  • THE  ORIGIN  10,0)  OF  CGORUI NATES  X  AND  Y  •) 

17  FORMAT! 1HJ  ,41X, •  IS  AT  THE  CENTRE  OF  THE  INPUT  MATRIX') 

18  FURMAT i 1HJ  ,3bX  X  IS  ABSCISSA - POSITIVE  EASTWARD  FROM  ORIGIN') 

19  FORMAT ( 1HJ  ,36X,  ' Y  IS  ORDINATE - POSITIVE  NORTHWARD  FROM  ORIGIN') 

to  R I  T  E  ( 6  » 12) 

12  FORMAT l 1HJ ,40X, • ABSCISSA  VALUE' , 10X ORDINATE  VALUE') 

*  R I  T  E  ( 6 , 1 3  ) 

13  FORMAT  (  1HT  ,  40X , 15 (  1H* )  » 10X, 14t  1H* )  ) 

N1=N* 10 

N2=N/2+ 1 
GC  14  K= 10 , Nl 

C  SETS. THE  LIMITS  FROM  -N/2  TO  +  N/2 

Kl=( 2*K-N1-10  )/2 

Y { K l=-B ( 1 )  —  l b 1 2 ) - 1  )*N2-B( 3) * ( N2**2 )-B ( 4) *{ N2**3 ) - l rf ( 2 )  +2*B ( 3)*N2+ 
1*B  (  4 )  *  (  N2**2  )  )  *  l  C  .  1  1 )  -  (  6(  3  )  +3*6  (  4  )  *N2  )  *U  0 . 1  *K  1 )  **2 )  -B  (  4  )  *  {  (  0  .  I 

2  K  1 )  *  *  3  ) 

IF(Y(KKLT.l-N/2i.0R.Y(K).GT.lN/2)  )  GO  TO  14 
XK=F  LOAT I K 1 J / 10 
WRITE (6, 15)  X  K , Y ( K ) 

14  CONTINUE 

15  FORMAT I45X»F5#1,20X»F5.1) 

3  CONTINUE 

2  CONTINUE 
STOP 
END 


‘ 
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SUBROUTINE  TREND  (6, BABY) 

C  AufOMAT  IU  TREND  ANALYSIS  PROGRAM 

IT  PRINTS  OUT  THE  VALUES  UP  4  UNKNOWN  CONSTANTS  FOR 

third  degree  polynomial  fit 

COMMON  X ( 2  5  »  2  5  )  »N 

REAL**  C ( 4 »  4 ) »D{4)  »  8  (  4  )  » A  (  4  » 4  } »  R  k  {  4  ) 

DIMENSION  I  i  100)  ,  J ( 100) , I  I (  100) f JJ ( iOO) tSUM(  10) 

I  NT EGER *4  PIV0TI4) 

INTEGEk  N 

X { N »  N )  MATRIX  OF  DIMENSIONS  N*N 
N  SIZE  OF  ThE  MATRIX  X(N,N) 

TO  FIND  THE  FIRST  MAXIMUM  PUINT.  WE  STORE  IT  IN  1(1)  AND  J { 1 ) 
I  T  =  0 

AMAX  1  =  X ( 1,1) 

20  CONTINUE 
I T  =  I T  +  1 
DC  1  K=1,N 
CO  1  L=I  ,N 

I F  <  I  T  .tC. 1)  CO  TO  22 

ELIMINATE  THE  MAXIMUM  POINTS  WHICH  ARE  UN  THE  BOUNDARY. 

I  Ti-  I  T-2 

DC  2  1  IL=  I,  IT  1,2 

IFIK.EU.il  IU  .ANL.L.EQ.JUL)  )  GO  TO  1 

21  CONTINUE 

22  CONTINUE 

IFiX(K,L) .LT.AMAXI)  GO  TO  I 
AMAX1=X(K,l) 

hit)=k 

J  (  I  T  )  =  L 
1  CONTINUE 

TO  FIND  THE  SECOND  MAXIMUM  POINT  AND  STORE  IT  IN 

I  l  2  i  ,  J  (  2  ) 


TESTS  TC  AVOID  ZERO  INDEXING. 

KI=  I  l  IT  )-l 
K2= I ( I T  )  +  1 
L  1  =  J  (  1  T  )  - 1 
L2= J ( IT )+l 

IF(Kl.EC.O)  K 1= I ( IT) 

IF(Ll.EG.O)  L 1  =  J (  IT) 

I  T=  I  1  +  1 
AMAX2=-110G.0 
CO  2  K—  K 1 f  K 2 
DC  2  L  =  L I »  L  2 
C  BYPASS  THE  CENTRE  POINT 

IFIK.EQ.  I  (  IT-I)  .AND.L.EQ.Jl  IT-1) )  GO  TO  2 
C  ELIMINATE  THE  MAXIMUM  POINTS  WHICH  ARE  ON  THE  BOUNDARY. 

I F ( IT. EC. 2)  GO  TC  24 


. 

•  .  , 


' 


' 


. 
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i  T 1= I  1-2 

UC  23  IL-l,ITi,2 

IFIK.Eu.K  IL)  .AND.L.EQ.Jl IL)  )  GO  TG  2 

23  CGMIMJE 

24  CLM  I N  ij  E 


CThERWISE,  WE  TEST  FCR  BOUNDARY  CONDITIONS.  IF  WE  ARE 
CUToIDE  THE  BCUNLAR I ES  GF  THE  MATRIX,  WE  BYPASS,  OTHERWISE 
WE  CONTINUE 

I F ( K.LT.i.GR.L.LT .  I )  GC  TG  2 
IFIK.GT .N.GR.L.GT.N)  GO  TG  2 
END  CF  BOUNDARY  CONDITION  TEST 


2 


IF  ( X ( K, L  i  .  L  T  •  A  M  A  X  2  ) 
AMA  X  2=X ( K ,  L ) 

I  (  IT  )  =  K 
J( IT  )  =  L 
CON  T  I NUE 
AM  AX  l.=AMAX2 
IF( IlIT-1) .EQ.l.AND 
I F ( J ( IT-1) .EQ.l.AND 
IF( I ( IT-l) .EQ.N.ANO 
I F ( J (  IT-l)  .EQ.N.ANO 
I F l  I  (  IT-l)  .EQ.l.AND 
I F { J { IT-l) .Ew.N.AND 
I F l J (  IT-l)  .EQ.l.AND 
I  Ft  I (  IT-l) .EQ.N.ANO 
I F  l  I  (  IT-l)  .  Eg . n  .  AND 
I F ( J ( IT-l) . E  u •  1  . AND 
I F ( l ( IT-l) .EQ.l.AND 
I F ( J (  IT-l) .EQ.N.ANO 
OTHERWISE  SET  FIRST 

im=n  it-1) 

I  (  2 ) -  I  (  IT  ) 

J(1)=J(  IT-l) 

J(2)=J( IT) 


GO  TG  2 


KIT) 

.  EQ 

.1  ) 

GO 

TO 

20 

J  (  IT) 

.EG 

.1  ) 

GO 

TO 

20 

KIT) 

.  E  Q 

.N) 

GO 

TO 

20 

JUT) 

.  EQ 

•  N  I 

GO 

TO 

20 

JUT) 

•  E  Q 

.N) 

GO 

TC 

20 

KIT) 

.  Eq 

.  1  ) 

GO 

TO 

2  0 

KIT) 

- 

0  c  w 

.N) 

GO 

TO 

20 

JUT) 

.  EQ 

.  1  ) 

GO 

TO 

20 

j(  m 

.EQ 

.N ) 

GO 

TG 

20 

KIT) 

.  £  Q 

.1  ) 

GO 

TO 

20 

J  (  IT) 

.EQ 

.  1  ) 

GO 

TO 

20 

KIT) 

•  t  Q 

.  N ) 

GO 

TO 

20 

AND  SECC3 

NO 

INDEX 

OF 

i 

AS 


wE  START  OUR  SEARCH  FOR  SUBSEQUENT  MAXIMUM  ELEMENTS 
IN  THE  FORWARD  DIRECTION  BY  SETTING  FLAG=0.0 
START  THE  COUNTER  AT  IC=2 


FLAG  =  G  •  0 
IC  =  2 

8  CONTINUE 

TEST  FOR  SEARCH  IN  THE  REVERSE  DIRECTION,  THAT  IS,  WHEN  FL AG=  1.0 
I P  t  FLAG . EG • 1 . 0  )  GC  TC  9 

OTHERWISE  CALL  THE  SUBROUTINE  SCAN  TG  FIT  THE  ST. LINE  EQU. 

AND  TC  OBTAIN  THE  NEXT  MAXIMUM  POINT. 


CALL  SCAN  lie, I, J, FLAG) 
GC  TC  8 
9  CONTINUE 


C 


■j 
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wri rt (6, ioc) 

100  FORMAT!  1H1,8X, 'FIRST  MAX.  ELEMENT  IN*  » 1QX , *  ROW  COORDINATE  1(1)',  5X 
1, ‘ANO' ,5X, 'COLUMN  COORDINATE  J  t  1 )  •  ) 

WRITE(6,101) 

101  FORMAT {  iHT,3SX,lS( 1H*)  ,  13X,23( 1H*) ) 

WR I TE ( 6  » 102)  I(l)fJ(l) 

102  FORMAT (A6X,I5»28X, 15) 

WRI TE  ( 6 » 103) 

103  FORMAT ( 1HJ ,8X ,* FORWARD  MAX  ELEMENTS  IN', 8X, 'ROW  COORDINATE  I  (2)*,  5 
IX, 'AND' ,5X, 'COLUMN  COORDINATE  J ( 2  > •  ) 

WRI TE (6, 101  ) 

DC  1C8  K  —  1  ,  I C 
wR I TE ( 6 , 102 )  1!K),J!K) 

108  CONTINUE 

FOR  SEARCH  IN  THE  REVERSE  DIRECTION 

FIRST  OF  ALL,  WE  TRANSFER  VECTORS  I  AND  J  INTO  II  AND  JJ  FOR 
CONVENIENCE  THEN  CONTINUE  THE  SEARCH  IN  THE  SAME  MANNER 
AS  IN  THE  FORWARD  DIRECTION 

DC  10  K= 1 , I C 
I  I  { K )=  1  ( IC  +  l-K) 

JJ(K)=J ( IC+l-K) 

10  CGNTINUE 

TEST  WHETHER  THE  REVERSE  DIRECTION  IS  FINISHED*  THAT  IS,  WHEN 
F LAO  1.0.  THEN  WE  CAN  PROCEED  FOR  THIRD  DEGREE  POLYNOMIAL 

FIT  TO  OUR  ALL  THE  MAX.  ELEMENTS  IN  II  AND  JJ. 

11  CGNTINUE 
IFIFLAG.GT  •  1  • C ) GC  TO  12 
CALL  SCAN!  IC, I  I , JJ,FLAG) 

GO  TC  11 

12  CONTINUE 
C 

WRITEI6, 105) 

105  FORMAT! 1HJ,8X, 'ALL  THE  MAX  ELEMENTS  I  N  '  ,  9X  ,  •  ROW  COORDINATES  ',4 
IX , • AND '  ,  5X , '  COLUMN  COORDINATES  ') 
wRI TE  lo  ,  10  1  ) 

CO  104  K= 1 , I C 

WRI TE(6, 102)  I  I  ( K  )  ,  J  J ( K } 

104  CON  T  I  NUE 

C  TO  OBTAIN  AVERAGE  CRCS S-CORRELAT I  ON  FACTOR 

SUM  1  =  C • C 
CO  25  K= 1 , IC 
I  1 1=  1 1  (  K  ) 

JJ1=JJ ( K) 

SOMl  =  SUivl  +  X(  I  I  1 ,  J  J  1  ) 

25  CGNTINUE 

SUM 1  =  $UM 1/ ( IC*1000) 


•  '  :  v  '  , 
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CALL  S  P AC  t ( 2  ) 

W  R I T  E l 6  »  26 )  SUM  1 

26  FORMAT ( 1HJ , 6X AVERAGE  CORRELATION  FACTOR  =»,F10.5) 

ID  FIT  THE  THIRD  DECREE  POLYNOMIAL 

MATRIX  OF  SIZE  4X4  IS  SYMMETRICAL,  AND  WE  NEED  TO  OBTAIN 
ONLY  7  SUMMATION  SETS* 

CG  13  K=  1 , 7 
SUM (Ki =0.0 
DO  14  L=  1 1  IC 
111=11  (L) 

JJ1=JJ( L) 

SUM( K)  =  SUM (K ) +X( II 1 , JJ  l)*l J J  1**(K-1) ) 

14  CONTINUE 
13  CONTINUE 

NOW  SET  THE  COMPLETE  MATRIX  0(4,4)  WITH  ITS  PROPER 
SYMMETRIES. 

DO  15  K= 1*4 
CO  16  L  =  1 , 4 
C(K,L)=SUM(K+l-1  ) 

16  CONTINUE 

15  CONTINUE 

NOw  CALCULATING  THE  SUMMATIONS  FOR  VECTOR  D 

CO  17  K=  1 , 4 
SLM( K  )  =0 . 0 
DO  18  L=  1  *  I C 
1  1 1=  1 1 1  L  ) 

J  J  1  =  J J (  L  ) 

SUM  (  K  )— SUM  ( K ) +X (  II1,JJ1)*IU*{  JJ1**.(K-1)  ) 

18  CONTINUE 

C  (  K )  =  SU M ( K  ) 

17  CCNIINUE 

NOw  wE  HAVE  THE  MATRIX  C  AND  VECTOR  0,  THE  SOLUTION  OF 
4  UNKNOWN  CONSTANTS  COULD  BE  OBTAINED  IN  VECTOR  B 
BY  USING  THE  PACKAGE  S UBROU T I NE . C S 009 A ,  IN  IBM  67/360 
U  OF  A,  FUR  SOLVING  THE  SIMULTANEOUS  EQUS. 

CALL  CSC09  A  { C , D  ,  8 , 4 , A  ,RR , P I VUT , BABY ) 

CALL  SPACE ( 2 ) 

IF(BABY.EU.l.C)  GO  TO  30 
WRITE16, 1061 

10t>  FORMAT  (  1HJ  ,31X  ,  '  C(K,L)  •,43X,'  B  (  K  )  ',24X,»  D  (  K  )  *) 

WRI TE ( 6  , 107) 

10  7  FORMAT ( 1HT ,31X , 8 ( 1H*  )  ,43X,6( 1H*) ,24X,6 ( 1H*) ) 

WRITE(6»  19)  (  (  (C(K,L)  ,L=1,4) ,B!K)  ,Q(K)  )  ,K=1,4) 

19  FORMAT! (1HJ,7X,4E14.7,15X,E14.7,15X,E14.7//)) 

30  CONTINUE 


k  ? 

1  /3 1 
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RETURN 
t  NO 


1  ■ 

' 
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SLBKOUT I  ME  SCAN( IC  » I  * Jf FLAG) 

IT  IS  USED  IN  SUBROUTINE  TREND 

THIS  SUoKOUT  I NE  OBTAINS  STRAIGHT  LINE  FIT  UP  TO  5  POINTS 
AND  FINDS  SUBSEQUENT  MAXIMUM  ELEMENTS. 

Cl  MENS ICN  II  ICO)  » J  {  ICO) t  10(8) » I E ( 8 ) 

COMMON  X ( 25  »  25 ) »  N 
INTEGER  N 

TEST  FOR  SPECIAL  CASES 

TEST  WHETHER  I  OR  J  VECTORS  CONTINUE  IN  THE  SAME  ROW  OR  COLUMN 

CASE  Cf  THE  SAME  RCR 
ISP=C 
J  SP  =  c 

DO  8  K—  I  *  I C 
KK=IC+1-K 

IFIK.GT.7)  GC  TC  9 
IF(KIC).NE.KKK))  GC  TO  10 

8  CONTINUE 

9  CONTINUE 

C  I C  1  =  J  (  I C  )  —  J  {  IC-.I) 

SET  I SP— 1 »  TC  CALCULATE  DIN  FOR  THIS  CASE 
ISP=I SP+1 

TEST  FOR  BOUNDARY  CONDITIONS 
I F (  I(  IC).LE.I.OR.J(IC)  .LE.l)  GO  TO  23 
IF(  I  ( IC) .GE.N.CR. J(IC) .Gfc.N)  GO  TO  23 
END  CF  B.C.  TEST 
GC  TC  1 
1G  CONTINUE 

CASE  CF  THE  SAME  COLUME 

DC  11  Keltic 
KK—  I  C  +  l-K 

IFIK.GT.7  )  GC  TC  12 
I F  l  J (  IC)  .NE.J(KK) )  GC  TO  13 

11  CONTINUE 

12  CONTINUE 

CIC1=I  {  JC1-I l  IC— I i 

SET  JSP=  1  TC  CALCULATE  DIN  ACCORDINGLY . 

JSP=JSP+1 

TEST  FOR  BOUNDARY  CONDITIONS 
IFII(IC). LE.l. OR. J(IC). LE.l)  GO  TO  23 
IF!  I  l  IC  )  .GE.N.CR. J (  IC) .GE.N)  GO  TO  23 
END  CF  B.C.  TEST 
GC  TC  1 

13  CCNTINUE 

TEST  FOR  BOUNDARY  CONDITIONS 


IFU(IC).  LE.l.  OR.  J  (  I  C  )  -  LE.l) 
IF(IIIC).  GE.N.  OR. J(IC). GE.N) 
END  CF  B.C.  TEST 


GO  TO  23 
GO  TO  23 


' 


'  * 


•* 


* 


'  / 


* 


* 

'  • 
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C 


c 


3 

4 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


TG  F  I  Nu  THE  PARAMETER  8= 6 1 / 82=NU M/ D EN  FOR  THE  ST.  LINE  Y=A+6X 

SUM  1  =  0 . 0 

SUM 2=0  •  0 

SUM 3=0 .0 

SUM4=G  .0 

SUM  5  =  0 .  C 

DC  3  K=  1  f I C 

KK= I C+ 1-K 

I  1=1  (  K  K  ) 

J  X  *  J  (  K  K  ) 

TEST  FOR  7  OR  LESS  THAN  7  POINTS  TO  FIT  A  ST.  LINE  EQU. 

IFIK.GT.7J  GO  TO  4 
SUM!  1=SUM  I  +  X  (  Ilf JL)*J1 
SUM2=SUN2+X( I  1,  J1)*U 
SUM3  =  SUM3  +  X( I  1, J1)*J1*J1 
SUM4  =  SUM4  +  XU  1,J1)*J1*I1 
SUM 5=SUM5+X  (  1  1,  j1) 

CONTINUE 
CC NT  INUE 

Bl={ SUM2*SUM1-SUM4*SUM5 ) 

B2=( SUMJL*SUM1-$UM3*3UM5) 

SCANNING  PRGCEEDURE  (CUT  OF  8  POINTS  AROUND  THE  LAST  MAX.  POINT)  . 
TO  FINL  THE  SUBSEQUENT  MAXIMUMS. 

D 1C  I  DISTANCE  CALCULATED  BETWEEN  THE  NORMAL  LINE  AND  PREVIOUS 

TG  LAST  MAX.  POINT  THAT  IS  <  I C- 1  )  POINT. 

DIC2  DISTANCE  CALCULATED  BETWEEN  THE  NORMAL  LINE  AND  PREVIOUS 

TC  LAST  TO  LAST  MAX.  POINT  THAT  IS  (IC-2i  POINT, 

DIN  DISTANCE  UF  VARIOUS  (8  POINTS)  POINTS  TO  BE  COMPARED  WITH 

GlCif  Tu  CHECK  WHETHER  TO  ACCEPT  THE  POINT  OR  NOT  WHILE 
PROCEEDING  IN  A  PARTICULAR  DIRECTION. 

THE  ACCEPTED  POINTS  ARE  TEMPORARILY  STORED  IN  VECTORS  ID  AND  IE. 


CiCI={B2*J{  IC-1)+B1*I{  IC-i  )-Bl*i  (  IC)-B2*J(  IC)  )/ SORT l 81*3  If  B2*62) 
IFUC.EQ.2)  GO  TO  I 

DI  C2=(  82*0  (  IC-2)«-Bl*I  (  IC-2)-81*I  (  I  C  )-B2*  J  (  I  C  )  )/ SQRT { Bi*B 1  +  8  2*82  ) 
1  CONTINUE 

INITIALLY  SETTING  THE  VECTORS  ID  AND  IE  TO  ZERO, 

CO  20  K=l,3 
I  C ( K )  =  0 
I  E I K )  =  0 
20  CONTINUE 


TESTS  TC  AVOID  ZERO  INCEXING. 

K  1=  I  (  I C  )  - 1 
K2= I ( I C ) + 1 
L 1  =  J (IC)-I 
L  2=  J ( iC)  +  l 


*  l. 


*  *  : 

‘ 


A  T  yy  ' 


oooooon  o  o  n  oo  ooonr> 


P-li| 


IF(Kl.EC.O)  K 1  =  I  (  I C ) 

IF(Ll.fcC.O)  L 1= J ( I  C ) 

ISC=C 

CG  6  K  =  K i »  K2 
CU  5  L  =  L 1 »  L2 

C  bYPAbS  ALL  THE  PREVIOUS  MAX.  POINTS. 

DO  33  I K=  1  » I C 

IFIK.EU.  It  IK)  .AND.L.Eu.Jl IK)  )  GO  TO  b 
33  CONTINUE 

C  OTHERWISE  TEST  FOR  BOUNDARY  CONDITIONS. 

1 F ( K.LT.  l.CR.L.LT. 1)  GO  TO  b 
IFIK.GT  .N.CR.L.GT • N )  GO  TO  b 
ENC  OH  B.C  •  TEST. 

NO w  OBTAIN  DISTANCE  DIN  FOR  cACH  OF  8  POINTS  TO  THE 
NORMAL  LINE  AND  COMPARE  WITH  CIC1. 

DIN  WOULD  BE  NEGATIVE  OF  DICI  ON  THE  UPPQSITE  SIDE  OF  THE 
NORMAL  LINE  AND  POSITIVE  ON  THE  SAME  SIDE  OF  NORMAL  LINE. 
I F (  ISP.EQ.l)  GO  TO  IH 
IF { JSP  .  EG.  I )  GO  TO  IB 


DIN= ( 02*L+Bl*K-B 1*  I  (IC  )-B2*J (IC) )/SQRT { 3  1*81+82*82 ) 
TAKING  INTO  ACCOUNT  THE  COMPUTATIONAL  ERROR  LIMITS. 
CIM  =  CIN  +  O.OGCGl 
GIN2=CIN— O.CCCCI 
GO  TC  19 


14  CONTINUE 
DIN=J( ICJ-L 

TAKING  INTO  ACCOUNT  THE  COMPUTATIONAL  ERROR  LIMITS. 

DIN1=DIN+G.0CC01 

DIN2=DIN-0.CGC01 

GO  TC  16 

15  CONTINUE 

D  I  N  =  I  l 1C)  —  K 

TAKING  INTO  ACCOUNT  THE  COMPUTATIONAL  ERROR  LIMITS. 

Cl  i\l=CIN  +  C. COCCI 
DIN2=GIN- O.CCCCI 
GO  TC  16 
19  CONTINUE 

TEST  WHETHER  WE  ARE  IN  THE  FORWARD  DIRECTION  OR  IN  THE 
REVERSE  DIRECTION. 

THEN  COMPARE  DIN  AND  DICI  ACCORDINGLY. 


CHECH  TEE  SIGN  uF  DICI  WITH  RESPECT  TO  DIC2  AND  THEN 
COMPARE  DIN  AND  DICI  ACCORDINGLY. 


I F {  IC.EG.2)  GO  TC  16 

IFIDICl.LT. (C.O)  .AND.DIC2.LT. (O.O) )  GO  TO  16 
IFIDIC1.GT  .  (O.C) .AND.DIC2.GT . (O.C) )  GO  TO  16 
GO  TC  17 
C 

16  CONTINUE 

IFIDINl.LT.  (0.0)  .AND.DICI.LT . (0.0) )  GO  TO  b 


. 

‘ 

- 
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IFIDIN2.GT. (C.G)  .AND.DIC1.GT .{0.0) )  GC  TU  5 
GC  TC  18 

17  CONTINUE 

IF(D IN2.LT . (0.0)  .AND.DIC1.GT. (0.0) )  GU  TO  5 
IFIDIN1.GT. (0.0) .ANU.0IC1.LT. (0.0) )  GO  TO  5 

18  CONTINUE 

OTHERWISE  ACCEPT  THIS  VALUE  AND  STORE  TEMPORARILY  IN  VECTOR 
IC  AND  IE. 

INCREASE  THE  COUNTER 
ISC=1SC+1 
I  0 l ISC)=K 
I E ( I  SC ) =L 

5  CONTINUE 

6  CONTINUE 

I  1=ID( 1 ) 

J 1—  I  E  (  1 ) 

IF( I  1.EC.0.0R.J1 .EQ.O)  GO  TO  23 
1  3=  I  C+  1 

AM AX  3=  X ( I l,Jl) 

DO  7  K= 1 , I  SC 
1 2— I C  (  K  ) 

J2= I E (  K  ) 

I F ( X (  I  2  »  J2 ) .LT.AMAX3)  GC  TO  7 
AM A  X  3—  X l  12,  J2) 

I ( 13  )=  12 
J  (  I  3  )  =  J  2 

7  CONTINUE 

INCREASE  THE  COUNTER 

IC=1C+1 

CHECK  WHETHER  X (  I  ( I C  )  ,  (  J (  IC  )  J  IS  LESS  THAN  Ok  EQUAL  TO  0.0, 
IF  IT  IS  ZERO  WE  QUIT  IN  THIS  DIRECTION. 

IF(X(  I  (  IC) , J(  IC)  )  .LE.O.O)  GO  TO  2  3 
GO  TC  21 
23  CONTINUE 

INCREASE  FLAG  FOR  REVERSE  DIRECTION  OR  FOR 
COMPLETION  OF  SCANNING  AND  RETURN 
FLAG=FL AG+ 1.0 
21  CONTINUE 
RETURN 
END 


!  •* :  *  *  ' :  - 


* 
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SUBROUTINE  SPACE  IN) 

C  OUTPUT  SPACER 

C 

INTEGER  N 
C 

INTEGER  K 
C 

IF  IN.GE.6C)  WRITE  (6,110) 
IF  (N.GE.6C)  RETURN 
K  =  N 

100  IF  (K.LE.0)  RETURN 
K-K-l 

WRITE  (6,120) 

GC  TC  1 G  0 
110  FORMAT  (1H1) 

120  FORMAT  ( 1H  J 
RETURN 
END 


• 
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SLDRCUT  INE  CSC09 A ( AA ♦ KhS»  XX , NN , BB * RR , P I VGT , B ABY ) 


C 

C  . fclLKl.NSCN'S  ALGORITHM 

C 

C  . * . .OSAGE 


CALL  CSG09AI AAfRHS,XXtNN,BB »RR» HI VQT ,BABY) 
AND 

CALL  CSC09B ( RhS » XX ) 

ENTRY  CS0C9A 


SOLUTION  CF  ( ILL-CON DIT  I G  N  E  0  )  SYSTEM  AA*XX=RHS  OF 
SIMULTANEOUS  LINEAR  EQUATIONS  TO  (NEAR)  FULL 
WORKING  SINGLE  PRECISION  ACCURACY  FOR  THE 
FIRST  RIGHT  HAND  SIDE” RHS. 


A  A  •  «  ......  THE  MATRIX  OF  THE  SYSTEM 

RHS . THE  INITIAL  RIGHT  HAND  SIDE 

XX . SOLUTION  ASSOCIATED  WITH  RHS 

NN.  ...... .ORDER  OF  SYSTEM 

6b . LU  FACTORIZATION  OF  AA 

RR . uORRECTIUN  VECTOR 

PIVOT . WORKSPACE  VECTOR 


ENTRY  CS0C9B 


0 


r 

X- 


. SOLUTION  OF  SYSTEM  FOR  SUBSEQUENT  RHS, 

. IT  CAN  ALSO  BE  USED  REPEATEDLY  TO  OBTAIN 

. . TriE  INVERSE  MATRIX. 

RHS . A  RIGHT  HAND  SIDE  FOR  THE  SYSTEM. 

XX . SOLUTION  ASSOCIATED  WITH  THE  RHS 

REALMS  SS, ROUND 

REAL-4  AA ( NN  ,  NN )  ,BB( NN  ,  NN) ,  XX  f  NN ) , HR  I NN )  , NORM EE , NOR MX X 

1 »  R  H  S  (  N  N  ) 

INTEGER-4  NN , R  #  R b I G , P I VOT ( NN  )  ,  F  I  N 

N  =  N  N 

RC‘JNC  =  D6LE  (  2.0**  {-25  )  ) 

. OBTAIN  A  WORKSPACE  COPY  BB  OF  MATRIX  A  A 

CC  1  1  =  1  » N 
DO  1  J - 1 , N 

1  Bell, J  >  =  AA { I , J ) 

. DETERMINATION  OF  THE  MAXIMUM.  ROW  ELEMENTS 

DO  3  1=1 , N 
RR (  I ) =0 .0 
DG  2  J=  I ,  N 

2  HR l I )  =  AMAXL  t  RR ( I ) , ABSl A A (  I  , J )  )  ) 

. 2**-25  IS  USE!)  AS  AN  EFFECTIVE  ZERO 

IF (RRl I ) .LT.2.98E-08 )  GO  TO  1000 

3  CONTINUE 

R=  I 

4  b I G=  C  .  0 


C 


L -U  FACTORIZATION  OF  MATRIX  Bb 


*  -  : 


* 


.  ;  - 

‘ 


J  )  J.  ('I 


' 


non 
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k  B  i  G  =  R 


I  I  =R 

C  . (  U  .  P  .  )  ACCUMULATION  OF  LLEUU  PRODUCTS 

C  . DETERMINATION  OF  LL  ELEMENTS 


41  JJ=1 

S  P  =  B  B (  I  I  ,  R  ) 

5  CONTINUE 

I  F  (  J  J  .  E  G  .  R  )  GO  TO  6 
SP=S  P-bB (  I  I , J J) *BB ( J Jt  R  ) 

JJ=J J+  I 
GC  TC  5 

6  BS (  1 i  , R ) =SP 

HQLD=ABS  (  BB  (  i  I  ,R)/RR(  ID) 

I F ( HCLO-B I G )  7 , 7  ,  b 
a  B  I  G  =  hCLD 
RB 1 G= 1 1 

7  IF (  I  I  .EC  .N )  GC  TC  9 
I  1=  I  1  +  1 

C-0  TC  A I 

9  IF ( BIG.LT.Z.SbE-CS)  GO  TO  2000 
RR(KEIG)=KR{ K) 

P I  VC  T ( k ) =R  u  I  G 

C  . INTERCHANGE  ROWS  R  AMD  PIVOT  U  ) 

CO  10  1=1, N 
HGLD=BB (K  ,  I  ) 

BB(R,I )=BBIRBIG,  I  ) 

10  6  8  { R  B I G  »  I  )  =  H  C  L  0 

C  . UETERMINATIuN  OF  UU  ELEMENTS 

I  I  =R 

101  IF ( I  I  ,Nfc  •  N  )  GC  TO  11 
IF(R.Ew.N)  GC  TC  t>6 
R  =  K  +  1 
GG  T C  4 

11  11=11+1 
J  J=  1 

SP=b  B  (  R  ,  I  I  ) 

12  CONTINUE 
IF(JJ.EG.R)  GC  TC  13 

S  P=  S  P-6  8 ( R,  JJ ) *88 ( JJ  ,  I  li 
J J  =  J  J+  1 
GC  TC  12 

13  bd(R,II)=SP/BB(R,R) 

GO  TC  1C1 

. . FACTOR  IZAT  ICN  OF  AA  IS  COMPLETE , THE 

. SOLUTION  CAN  NOW  BE  OBTAINED  FOR  ANY  KHS 

...... . C  F  AA*XX=RhS. 

ENTRY  CSG09B ( RHS  ,  XX ) 


C  . . THIS  ENTRY  POINT  IS  USED  WHEN  THERE  IS 

C  . MORE  THAN  CNE  RHS  AND  FOR  OBTAINING  THE 

C  . INVERSE. 

bb  F  IN  =  C 

C  . K  IS  AN  ITERATION  COUNTER 

C  . * . XX  ITERATED  SOLUTIONS 


' 


... 


.  -■  !  *  I-  '  ,  • 


.  t, 

t 


■ 


■ 
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. RR  I  TERATED  RESIDUALS 

. BEGIN  WITH  STAR!  INC,  VALUES  FOR  XX  S,  RR 

. OF  THE  NULL  VECTOR  AND  B  RESPECTIVELY 

CQ  14  1=1, N 
X  X  (  1  )  =  C  .  0 
14  RR (  I  )  =  R  H  S  (  I ) 

K  =  G 


C  . . . EXECUTE  FORWARD  SUbSTITUTION  AND  OBTAIN 

C  . SOLUTION  TO  LL*Y=P*RR 


141  IHK.GT.l)  GC  TO  300C 
IF(K.EQ.O)  GC  TO  146 
SCAi_t  =  AbS  ( RR ( 1 ) ) 

DO  142  1=2, N 

142  SCALE  =  AN INI ( SCALE ,ABS(RK(I)  )  ) 

FACTOR =1.0 

I  F ( SCALE. LE.l .CE-10)  SCALE=1.0 

143  IF ( SCALE. GE.  1 .0  )  GC  TO  144 
FACTCR=FACTCk*1G.C 
SCALE=SCALE*1C .0 

GO  TO  143 

144  DC  146  1=1, N 

14  6  RR  I  I  J  =Kr  (  I  )  ’•'FACTOR 
146  DC  18  1=1, N 
J=1 

SS=C6LE ( KR ( P I  VC  T 11)1) 

RR I P I VOT ( i )  )=Rk(  I) 

16  CONTINUE 
IFU.EQ.I)  Gu  TO  17 

SS  =  SS-(D3LE(Be(  1  , J)  )*UBLE(RR{ J )  )  ) 

J  =  J+  1 
GC  TO  1c 

17  RR(  I  )=SNGL(RCUi\C+(SS/URL£(b3(  I,  I)  )  )  ) 

18  CONTINUE 

C  . ...BACK  SUBSTITUTION  FOR  UU*RR  =  Y 

C  . K-TH  CORRECTION  TERMS  ARE  OVERWRITTEN  ON  RR 


l  =N 

IS 

J=  I 

S  S  =  D 

bLE ( RR ( 

2G 

IF  {  J 

•  E  U  •  K  J 

J  =  J  + 

1 

SS=SS-(DBLE ( 3B(  I, J)  )*U8LE(RR( J) )  ) 

GC  TC  2C 

21  RK t  I  )=SNoL { bS  +  RCUND ) 

IF(  I  .EQ.l  )  GC  TO  22 

1  =  1-1 
GO  TC  IS 

C  . CHEBYSHEV  NORM  FOR  XX  AND  RR 

22  I  F ( K  . EQ • 0 )  GC  TO  222 
DO  22  1  I  =  1 ,  N 

221  RR ( I  )  =  RR (  I  )  /FACTOR 

222  NORM X  x=  C . 0 
NCRMEE=0 .0 
DC  23  1=1, N 


-»  - * 


.  •  * 

' 
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. 


. 
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no  O  O  O  O  O  o 


F-20 


NORM XX  =  AM AX  1 (NCRMXX,A6S(XX( I ) } ) 
23  NORMEE=AMAXl (NURMEE, A8SIRRI I ))) 


C  . ..BEGIN  ITERATIVE  CORRECTION  HRCCEEDURE 

C  . . . CNLV  ONE  CORRECTION  STEP  IS  PERFORMED. 

IF  WARREN  TED  STATEMENT  141  CAN  3E  ALTERED 
TO  PERMIT  ADDITIONAL  CORRECTIONS. 


IF(K.Ew.O)  GO  TO  29 
IFIK.EQ.1)  GO  TO  25 

24  Ir{  (NCRMEE/NGRMXX).LT.2.0**(-23)  )  GO  TO  28 
GO  TO  29 

25  IF(  ( NCkMEE/NCRMXX  )  .LE.0.5)  GO  TO  24 
GO  TO  20GG 

. F  I N  = 1  INDICATES  ACCEPTANCE  OF  SOLUTION 

2  8  F  i  N  = 1 

. . . ADDITION  OF  THE  CORRECTION  TERMS 

•  ••••••••••. • K~TH  I T £ R A T E D  SOLUTION  IS  XX 

29  DO  3C  I  I-  1  ,  N 
20  XXII  I ) -  X  X ( I  I  )  +RR  l  I  I  ) 

. . ACC  CM  OLA  T  I  ON  OF  RESIDUALS 

DC  32  I=i,N 
SS  =  CriLE  {  RH S  i  I  )  } 

DO  3  1  J  =  1 »  N 

31  SS  =  SS-(DbLE( AA( I, J)  )*DBLE(XX{ JJ  )  ) 

32  RRI I )=SNGLl SS+RCCND) 

K=K+1 

IF(FiN.NE.l)  GO  TO  In  l 
RETURN 

ERROR  CONDITIONS  AND  RETURNS 


1000  *R1TE(6»10C1  ) 
1CC1  FORMAT  I  *  ****** 

I  *  *  Xs  *  *  *  } 

bAbY  =  BAbV+l  .0 
RETURN 

2 COC  WRITE (6 ,2001  ) 

2  001  FORMAT (  *  ****** 
1 AC Y  *******  ) 
8AbY=8A6Y+i.C 
3000  RETURN 
END 


EKRCk  CONDITION-  SINGULAR  OR  NEAR  SINGULAR  MATRIX  * 


ERROR  CONDITION-MATRIX  IS  SINGULAR  TO  WORKING  ACCUR 


■ 

‘ 


APPENDIX  G 


G-l 


Formula  to  obtain  the  'first  horizontal  derivative’  with 
respect  to  x. 


g"(x) 

where 


N-l 

2tt±  E 
N  m=0 


N-l 
E  m 
n=0 


A 


m,n 


e 


2rri  (mx+ny ) 
N 


A^  n  is  complex  and  represents  the  FOURIER  coefficient 
of  the  observed  field. 


FORTRAN  IV 

PROGRAM  TO  OBTAIN  'FIRST  HORIZONTAL  DERIVATIVE’  USING  FAST 
FOURIER  TRANSFORM  SUBROUTINES. 


DELT  .  Digital  interval  of  the  data  set 

N(l)  .  Size  of  the  data  array  along  x-axis 

N(2)  .  Size  of  the  data  array  along  y-axis 

(Normally  considered  a  square  matrix) 
N(3)  .  is  set  to  zero 

XI (N(l) ,N( 2) ) .  The  digitized  data  as  reduced  after 

filtering  and  decimation  is  stored  in 
this  vector.. 


READ  IN  THE  FOLLOWING  PARAMETERS 


1. 

DELT 

according 

to 

FORMAT (5X, FI 0.5) 

2. 

N(1),N(2),N(3) 

according 

to 

FORMAT(5X,3I5) 

3. 

X1(N(1),N(2)) 

according 

to 

FORMATaXjSEll^) 

■ 

.  •:  ; 


* 

I 


- 


' 


' 


' 

■ 


■ 


. 


. 


o  r  o  O  <~.  o  r->  o  o 


o 

ci 


C  CALCULATIONS  FOR  'FIRST  HORIZONTAL  DERIVATIVE' 

C 

C  THIS  PROGRAM  CALCULATES  THE  FIRST  HORIZONTAL  DERIVATIVE,  USING 

C  ANY  POTENTIAL  FIELD  DATA, 

r 

L  1  Ht  PROGRAM  USES  T »« C  U  IRENS  luNAL  FOURIER  TRANSFORM  WHICH  IS  RASED 

C  ON  THE  ALGORITHM  DEVELOPED  BY  GOOD  (1958)  AMD  MODIFIED  6Y  C0OLEY- 

TUKEY  (1966)  AND  GEN TL EMAN-S ANDE  (1966). 


XII  I  , J )  IS  THE  KEAl  INPIT  MATRIX  IN  SPACE  DOMAIN. 

XU)  IS  THE  FINAL  SY  MM  ETERI  ZED  DATA,  USING  GYCLIC  PROPOKTIES  OF 
F  C  U  R I E  k  TkANSFuRMS. 


c 

f 

C 

C 


BC 
34 
35 
26 
40 
42 
4  D 
46 
50 
60 
7  C 
316 

3  17 
320 
325 
261 


9 


FOR  COMPUTATION  PROGRAM  USES  X(J)  +  IY(J)  w HERE  Y ( J  I  =  0 . 0 
OUTPUT  RESULTS  ARE  GIVEN  AS  XiJl+IYlJ)  IN  FREQUENCY  DOMAIN 
N ( J ,  X ,  0  )  ***  ARRAY  OF  DATA  IS  TwC  DIMENSIONAL  WITH  SIDE  J  BY  K. 
NLP  T  S  NUMBER  OF  DATA  POINTS  (J*K). 

L EL T  ***  THE  DIGITIZING  INTERVAL  IN  MILES. 


DIMENSION  X(  150CC  )  ,  Y(  L500C)  ,Sl  15000)  ,NJ3)  ,Xl(oJ,60) 
FORMAT  l  5  X  ,  3  I  5  ) 

FORMAT ( 1HJ ,31X, 1 4HCECL  INATIQN  =  ,  F 1 0 . 5 ,23X , 2 4HS I Z E  OF 


OUTPUT  MATH  I 


IX  =  ,15) 

FORMAT  (  3  X  ,  F  i  C . > ) 
FORMAT (5/,6F5.C) 
FORMAT  (  lXfoE11.4) 


FORMAT  l  IX,  ICE  13.4) 


FORMAT ( 1H1 ,6CX, 1CH INPUT  DATA) 

FORMAT  (  1  h  T  ,  6  C  X  ,  1  C  Ft  #  #  #  M  *  *  *  *  *  '■>'  } 

FORMAT  (1MJ) 

FORMAT { 1H1  ) 

FORMAT (  In T ,25X,oC( 1H*)  ) 

F  0  R  Mi  AT  (  1 X  ,  6  h  U  t  L  T  =  >  F  b  •  3 , 6  X  ,  18FINYQUIST  t  R  E.  0  :J  F  N  0  Y  =  ,  F  8  • 
FORMAT  (  1HJ  ,  .2  2  X  ,  1  5HFR  EQUENCY  =  2* J* , F  10 , 6, IX ,  1  3HCYCLE  S 
FUkM.AT  (  lril  ,4CX,53HFIRST  HORIZONTAL  DERIVATIVE  ALONG 

IN  • D  1  ) 


3) 

PER  MILE) 

The:  OECLINATI  0 


FORMAT ( 41X , 53 ( 1H*  ) ) 

FORMAT (  1HL  ,56X , 17hREAL  (SPACE)  PART) 
FORMAT  (  1  h  F  ,  5  o  X  ,  1  H  w  ^  £  v  #  $  v  &  #  #  v  ) 

FORMAT  (  1H1 ,55X  ,21HI  MAGINARY  (  SPACE)  PARTI) 
READ  (5,30)  DELI 
READ  (5,20)  (MJ)  ,0=1,3) 

NCPT  S  -  M1)*M2) 


N  N-N (  1  ) 

N  N  N  =  N  (  2  ) 

LC  9  1=1, NN 

R  EAC  (  5 , 3  3  )  ( X 1 (  I, J)  ,J=1,NNN) 

CONI  i  N  U  E 

WRITE  (6,40 

wRlTE(o,425 

DO  1C  1=1 , N  N 

WR I TE ( 6 , 36 )  ( XI (  I  ,J  )  ,  J=  1 , NNN ) 


* 


V 


' 


•  ' 


1  ‘  '  -  ■  . 


1  * 

■>  '  - 


* 


ooo  r,  on  r-oo 


W  R  I  T  E  (6,45) 
10  CONTINUE 

WRITE  (  6  ,  6 0 ) 
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SETT  INC  X  AS  THE  FINAL  SYHMETER  I  ZED  MATRIX  OF  SIZE  I 2N-2 ) * ( 2N-2 ) 
REMEMBER  HERE  X  IS  STORED  IN  A  VECTOR  FORM. 

CC  1  1=1, NN 
DO  2  J= 1 , NNN 
Jl=( 2*NN-2)*( 1-1  )  +  J 
X ( J  1  )-Xl  {  I  ,  J  ) 

2  CONTINUE 
N l=NN-2 

CL  3  J  =  1 , N 1 
J2= J 1+J 

X  1  J2  )  =  X 1 i  I , NN-J ) 

3  CONTINUE 
1  CONTINUE 

N2=2*NN-2 
CC  5  K  = 1 , N  1 
DC  4  J  =  1 , N 2 
J3  =  J  2  + J 

X(  J3 )  =  X ( J 3- ( 4*NN“4 ) *K) 

4  CONTINUE 
J2  =  J  3 

3  CONTINUE 

END  OF  SYMMETERIZED  VECTOR. 

NCrt  WE  RESET  N (  1  )  , N( 2 )  ,NOPTS , ETC . 

N (  1  I  =2*NN-2 
N  l  2  )=2*NNN~2 
N  N  =  N  (  1  ) 

NNN=N ( 2 ) 

NOP  T  S=N l 1 ) *N ( 2 ) 

F  N  —  1 ./ ( 2.*DELT ) 

WRITE  (6,60)  0  EL  T , F  N 
FP  =  FN/ ( FLOAT (NCPTS ) ) 

WRITE  (6,70  FP 
WRI TE ( 6 ,46 ) 

CALL  Wk  I  T ( X , NN , NNN ) 

CALL  ZERO { Y , NCPTS ) 

CALL  ZERC(S, NCPTS) 

CALL  ARMOF  T ( N , X  ,  Y , S  ) 

WRI TE( 6 ,46  ) 

WRITE (6, 320) 

CALL  wRIT(X,NN,NNN) 

WRITE(o, 261  ) 

CALL  W'R  I T  (  Y  ,  NN  ,  NNN  ) 

TO  MULTIPLY  FREQUENCIES  BY  A  FACTOR 

2.0*3. 14 159* J/NN  ,  FUR  I =0 , 1 , 2 , . .  .  . NN  AND  J=0 , 1 , 2 , . . . NNN 
DC  121  1  =  1, NN 

I  F  (  I  . C-T  .(NN/2  +  1)  )  GO  TC  11 
A  =  I  -  1 


■ 

• ) 


o  o 


Li 

U 


GC  TC  12 
A  =  - {  NN+l-I  ) 

CONTINUE 
K - ( I -  1 ) *NNN  + 1 
L=K+NNN-  1 
CO  121  J=K,L 

IFl  J.GT.  I {  L  +  K  )  /  2  +  i  )  )  GC  TO  13 
B=J-1-INN*( 1-1 ) ) 

GC  TC  14 

13  B  =  -(NN*-l-J  +  (NN*l  1-1  )  )  ) 

14  CONTINUE 

CCNT=  (2,0*3.  141 59* B  ) /Nt\ 

X  T  E  M  P-  X  (  J  ) 

Y  T  t  M  P  =  Y (J) 

X ( J ) =  -1.0*YTEMP*C0NT 

Y  (  J)-XTEMP*CCNT 
121  CONTINUE 

SET  1  HE  LAST  POINT  (I.E.  NN/  +  1)  OF  THE 
IPIGINAKY  VcCTuR  TO  -ZERO. 

K=  1 
L  =  0 

CC  122  M=1,NN 
L=L+NNN 

NSET=( R  +  L )  /2  +  1 
YlNSET)=-0.0 
K  =  L+  1 

122  CONTINUE 
C 

RRITE(6»46) 
wR  I  T  E ( 6  *  320 ) 

CALL  WRIT ( X , NN, NNN ) 
hRITE(6»261) 

CALL  wRIT(Y ,NN,NNN) 

J  =  0 

CO  250  J3-  1 1  NGPT  S 

J  =  J+  1 

C  REPLACE  FOURIER  COEFFICIENTS  BY  COMPLEX  CONJUGATE  * 

F=Y ( J  5 
Y(J) =- F 
250  CONTINUE 

CALL  ZERO { S , NOPTS  ) 

CALL  ARMDFT IN ,X,Y ,S) 

J  =  0 

CO  350  J4=1,NCPTS 
J  =  J+  1 

C  TARE  CUNPLEX  CON JOGAT  E . 

GG= Y ( J  ) 

Y ( J ) =-GG 
350  CONTINUE 
J  =  C 

DC  400  J  5= 1 »  NC  P7  S 

J  =  J  +  I 

X(  J)=X(  J  ) /FLCAK  NCPTS) 


ij- 

* 


■ 


*  i  l  n 


n  o  o 
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Y( J)=Yl J )  /  F  L  0  A  T INCPTS) 

4C0  CONTINUE 
C 

WRITE(6,46) 

WRI T  E ( 6 ,  320 ) 

CALL  WR  I  T  (  X  ,  NN  ,  NNN  ) 

WRiTE(6,261  ) 

CALL  WRIT(Y,NN,NNN) 

R to h T  NN  AND  N.SiN  .  ARC  HICK  UP  USEFUL  SIZE  OF  THE  FINAL  RESULTS 
RE  AL SC  OBTAIN  PUNCHED  DtCK  UF  THE  FINAL  RESULTS. 

wRITE(6»31c) 
wR1TE(6,317) 

WRITE  (6,320) 

WRITE  (6,325) 

N  i\  =  { i\  N  +  2  )  /  2 
NNN  = (NNN+2 ) /2 
CC  7  1=1, NN 
CC  8  J.=  1  ,  N  N  N 

X  1  ( I  ,  J  )  =  X  (  (2*NN-2)*(  I-l)+J) 

8  CONTINUE 
7  CONTINUE 
DC  2  1  1=1 ,  MS 

WRITE (6, 36)  ( XI (  I  ,  J  )  ,  J=1,NNN) 

WRITE(6,A5) 

21  CONTINUE 

WRITE  (6,50 
STOP 
ENO 


■ 

- 


. 

' 

APPENDIX  H 
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Modified  formula  for  the  reduction  of  total  magnetic  field 
to  the  pole: 


T  = 

R 


1  „  „  .  p4  —ip  i  U1 2  P 2  -i(^i+^2)p3 

-  Z  Z  A  ^mn  Fmn  r  r  ^  mn 

•  -T-  *  -r-  mn  ■  x 

sin  IA  sin  I  m  n  ,  2  ,  ,  \2,/,  .  ,  \2  2 

Ov  v  (p,l  -^1^2 )  +(^1+^2)  PT 


mn 


mn 


i(k  x+k  y)  p  z 
m  nJ  ^mn 
e  e 


Where 


mn 


m 


k 


n 


mn 


L 

I 


Ov 


v 
^  1 

ip  2 


I0,D0 


I  >D 


is  complex  and  represents  the  FOURIER  coefficients 

of  the  observed  fields 

27Tm 

L 

27m 

L 

—  (mz+n^ ) 

is  the  wave  length  in  the  x  and  y  direction 
180  -  I, 


0 


=  180-1 


(k  cos  Dn+k  sin  Dn)  cot  In 
m  On  0  Ov 

(k  cos  D  +  k  sin  D)  cot  I 
v  m  n  v 


are  the  inclination  and  declination  of  the 

polarizing  vector  of  the  rocks 

are  the  inclination  and  declination  of  the 


earth’s  normal  field. 


. 


-  . 


FORTRAN  IV 
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PROGRAM  TO  REDUCE  THE  TOTAL  MAGNETIC  FIELD  TO  THE  ’POLE’, 

USING  FAST  FOURIER  TRANSFORM  SUBROUTINES. 

DELT  .  Digital  interval  of  the  data  set 

AIO  .  Inclination  of  the  polarizing  vector  of 

the  rocks,  in  degrees 

AI  .  Inclination  of  the  earth’s  normal  field, 

in  degrees 

DO  .  Declination  of  the  polarizing  vector  of 

rocks,  in  degrees 

D  .  Declination  of  the  earth’s  normal  field 

in  degrees 

N(l)  .  Size  of  the  data  array  along  x-axis 

N(2)  .  Size  of  the  data  array  along  y-axis 

(normally  considered  a  square  matrix) 

N(3)  .  is  set  to  zero 

X1(N(1) ,N(2) )  ...  The  digitized  data  as  reduced  after 

filtering  and  decimation  is  stored  in 
this  vector 

READ  IN  THE  FOLLOWING  PARAMETERS 

1.  DELT  according  to  FORMAT ( 5X, 5F10 . 5 ) 

2.  AI0,AI*D0,D  according  to  FORMAT ( 5X , 5F10 . 5 ) 

3.  N(1),N(2),N(3)  according  to  FORMAT ( 5X, 315) 

4.  X1(N(1) ,N(2) )  according  to  F0RMAT(1X, 6E11 . 4 ) 


* 


4 

■ 


'  1£> 


•  ••  •'  V:  •  «  ' 


‘ 


, 

’  '1  .  .  - 


■  r 


o  o  r  o  o  r-  r-  o  r.  r  .  r  r  m  r)  c  r  r  o  o  o  r 
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C  IH1S  P  r<  u  o  k  A  M  PkLV  i  Ltd  THE  'MAGNETIC  ANEMllIeo  kEEuCeL  TO  TriE  P  Ji.c  * 
C 

C  THE  HETHCu  R  A  S  CKIuIiNAllY  PRGPCSte  ti  Y  b  A  K  A  N  0  V  (  1 9  3  7  )  >  A  in  u 

C  MEEIPIEE  bV  bHATlAeHARYA  I  IN  The  PKcStNf  PROGRAM* 

l  US  I  No  dhATTACriARYA  1  S  APPROACH  » 1  b  E  F  E  k M ULm  1  ^  h  m  V  t  btt;N  J  t  k  i  V  c  E 

C  TG  (MAKE  US  t  UP  THE  pAbi  PCUKIEK  TKMNbFuKM  ALuGrtiTHMi# 

C 

The  i  N  P  t  f  la T A  LeIN  b  1  d  I  b  Lr  THE  ’  T  o  I  A  L  M AUiN E  i  I G  P  1 1 El  VALUES*# 


A  1 0 - 

L  U  - 

A I  = 
u  - 


I  NEE  I  is  AT  I U  IN 

UP 

The 

Ebue  INAT  IuiN 

UP 

ThE 

I  NEE  I  NAT iuN 

E  P 

1  H  e 

ulCL  i  i\aT  IUN 

E  P 

ThE 

PULAklAlNG  VeuTuH  UP  Ku,i\ii  I N  LEukceb. 
t'GeAkiEATiGN  V  c  U  T  G  k  UP  K  GlG  A  b  »  i  N  Ji.bricto» 
£  A  r\  T  h  *  S  NORMAL  PIcLuj  IN  DEUkEcS# 

EAiUh’S  NukMAL  hie el*  a  IN  EcOrstcb# 


The  PRCGkAM  ubEb  TRL  UlMEkbluiNlAL  Fouklek  ThANbFUKM  WP>  1  uH  IS  bA  i£u 
CN  T  HE  AtGGRlT  HM  DcVelLPeu  6Y  oUuL)  l  193d i  A  Ml  MCiUPleu  lY  GuUelY- 
TOREY  11 Got)  A  No  o  EN  TL  E  F  Al\~b  AlNGE  (1966 )# 

X  I  (  1  y  J  )  i  o  THt  kEAL  I  (M  P  U  J  M  a  T  R  1  a  IN  o  P  A  G  e  U  ei  M  a  l  N  * 

X  (  J  )  lb  THE  PINAL  SYPiYeJ  t  K  I  2 1  l  l  A  T  A  »  U  b  I  N  G  CYuLIu  P  k  G  P  0  tv  U  £  S  u  r 

p c u k i e k  train sPukPS . 

PER  E  E  i'i  P  u  T  A  T  I  E  i\  h  t\  o  E  K  A  M  U  d  e  d  a  (  j  )  +  i  Y  i  J  )  a  h  e  k  £  Ylj)— E#C 

uutpuT  Results  are  uven  as  auj+iyij)  in  prewueinuy  0JMAIN 

N  (  J  *  K  *  0  )  *  **  A  k  k  A  Y  l  P  u  A I  a  l  b  T  v»  U  J  I F  E  i\  S  I L  N  A  L  ><  I  T  h  b  1  J  t:  J  b  Y  R  , 

N  0  P  7  d  ^  v  ❖  N  U  R  d  e  k  UP  l>  A  T  A  P  u  I  i\  T  b  1  # 

E  GELT  THE  U  I G  I T  I  ZING  INTERVAL  ii\  FILES# 

C 

ElMENd  i  E  N  A(IlOOC)  jY(ICOGC)  fd(luGGo)*N(3)  fXiloujOe/ 

20  PCRMAT  (bX»315J 
30  PuKFAT  UX»3flC#3) 

99  PukMAT IlCXfbFlG.O) 

FCkF AT l IX f i 3 P 5 . 2 ) 

33  P  L  k  F  a  T  (1X»6e11#4) 

36  PERM AT  l  IX, 1GE13.AI 
4G  FCRMAT(lhilf6GX»lCHINPU7  laTA) 

A  2  FORMAT  1  ihT  »  o  0  /  »  KH? 

ASPCkMATUHJ) 

A 6  PER FAT ( 1H1  } 

3C  PEiKMAT(iHT»23X»bC(lh*Jj 

60  FORMAT  I  1 X  »  6  H  E  t  L  T  —  »  F  c  •  3  *  o  A  *  1  b  h  N  Y  e  G  I  S  T  FREvUENCY=:jFb.3) 

70  PCRMATllMJj22X,13hPREGEEiNUY  =  2  *  J  *  ?  P  1 0  .  o  ,  1 A  » 1 3  HE  Y  E  L  e  S  Pea  M  i  L  E  } 

3 1 6  FORMAT ( 1 h 1 »  A  0  X  * 'FAGNlT  i  E  ANOMALIES  ''RelUUeE  TU  T Me  PELe'*'} 
bi7  PERM  AT  lklx,A7lih^)  ) 

32C  PuRFAT UHL ,3cX , 17HREAL  (aPACEJ  PaRT J 
02  3  PCRMaT  l  ihT  s  3  6  X  t  1  7  h  ^  ^  ^  ^  ^  ^  ^  v  $  $  r  Y  ¥  ^  v  J 
REAL  (3»30J  EELT 
ReAl)  (  3  ?  JC  )  A  I  G  »  A I  »ECtL 
READ  l 3 ,20)  ( N { J )  »  J~ 1 t  3  J 

NEPTS  =  M1IH12I 


■ 

■ 


T  vi 

. 


■ 


* 


O  D  C' 
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MS  =  IS  l  1  ) 

MMS  =  M 2 ) 

L  u  9  i  —  i  *  IS  IS 

i  /I  (  i  ,  J  )  t  J  =  1  »NISN  ) 

9  C  C  fs  r  i  is  L  t 
l*R  I  T  t  l 6  »  AC  ) 
ftR  i  1  c  (  6  j  92  ) 

LU  iC  1  =  1  *  N N 

iXllIiJltJ—lfWlSN) 

to  K  I  T  c  (  6  »  A  3  ) 

10  LL^IllSuc: 

ft  R 1  T  E  ( 6  1 5 C ) 

C  ScTl  i  NO  X  The.  F  1  ISm  L  5/MmETEkIZEU  R  A 1  K  1 X  C*F  i  /_  t;  ( 2N- 2 1 2N~  £ ) 

0  RtMEiMutK  H  c  r\  L  X  15  STuKtu  I  IS  A  VcOTUK  F  L  R  M  . 

C  C  1  1=1  » IS  IS 
Ll  2  J=i»i\MS 
J 1= ( c  *  MS-2  J  * ( i  - 1 )  +  j 
X  l  Ji )  =  X1 l  1  ivjj 

2  CGiSTINUE 
IS  i  =  IN  N  -  2 

ll  3  J=l»l\l 
J2= J  1  + J 

X  l  J  2  )  =  X  1  i  I  i  MS  -  J  J 

3  Cuisf  IMjc 
1  Cui\T  ilS^E 

f\  2=2^  Is- 2 
CU  5  K=1,M 
CC  A  j=  1  »M2 
J3  =  J  c  +  j 

XlJ3)=XlJ3—  (  A  *  MS  -  A  )  *  R  J 
A  CuisT  liSOt 
J 2=  J  2 

5  CulSTlfSUE 

C  ENj  Li~  S  ViMMe  TER  1  ZED  VECTOR. 

C  Is  C  ft  ft  c  RESET  ISll)»M2)»iN'UPT3»ETL* 

Ml)  =  2*MS-2 
i\  (  2  )  =  2  *  i\  MS  —  2 
MS=M  1  ) 

N  i\  iS  =  IS  (  2  ) 

NcR  T  5— N ( 1 ) ^fs l 2 ) 

Fi\  =  1  •  /  (  2  •  *0  EL  F  ) 
toRITt  (c»oL)  DELIfFS 
F  R  =  F  iS  /  l  F  L  0  A  T  KSCPTS  J  J 
ftR  i  1  E  {  b  »  7  C  )  FF 
R  E  R  C  V  t_  u.C. 


CALL  ZERG(YfiNuPlS) 
call  z  e  k  c  t  S  » fs  C  R  I  S  ) 
call  A R R C F T  (  iS  » x ,  Y  ,  S  j 


c 


ft  R 1  I  E  (  o  »  A  6  ) 

CALL  ft  R  I  T  (  X  ,  IS  IS  ,  IS  IS  IS  J 


' 


. 

% 

. 


n  o  o 
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IriRIT^^b  ?  4  6  1 

UALL  hh  IT  IV  ,l\t\  ,  NI\N  ) 

C  A  l  L  EERGIYiNl.  P  T  S  ) 

T  rtuF  I=o. 233185307 
C  C  N  3 1  =  T  v  <  U  P  I  /  3  c  C  .  C 

C  C  C  N  V  t  R  3  I  C  N  FkGM  ClgnEL3  TC  RaUIANg. 

C  C  =  C  C  *  C  C  N  S  T 
C  =  L*Ct-i\i)f 
AlC=AlG*bCi\8T 
A  I  =  A  I  *  C  C  N  3  r 
CCTR=ClTAMAIC) 

CC  T  E  =  CC  T  AN ( A i ) 

CC3LH-CC3  (  CO  i 
CC3CE=CC j  (  0  j 
SlNOK-SIMCCj 
SlNCE=3lN(C) 

S In  I R-3 I M  A  I  C  J 
SIM  E=  Si  MAI  J 
SiGSl-1 ./  i  SIMk-S  imu 
C  TC  MULTIPLY  PKt^cciNCIES  b  Y  «  F  A  b  T  u  R 

c 

CC  12  1  1  =  1 1  NR 

IH  I  .GT  .  liYN/2  +  1)  )  Gl  TL  11 
A  =  I  —  1 
GC  TC  12 

11  A  =  - l NN+ 1-  I  ) 

12  C  C  N  T  I N  U  E 

K= ( I-1J*NNN+1 

L  =  K  +  l\NN-  1 
CC  121  J  =  N  t  L 

IFU.G7  .  U  L  +  M/2  +  1  j  }  UC  TL  13 
b  =  J  —  1~  i  N  N  M i  —  11  ) 

GC  TC  14 

lb  b=-(NN  +  i-J+(i\N*li-l))j 
14  CCNT1NUE 

Ir(A.Ew«u.C«Al\C.b.tu.O»GJ  G  b  TC  1  l  a. 
P M. iSi  —  S U K T  l  A^^E+b^^E) 

AKM  =A / PMN 
b  K  i\  =  b  /  P  M  N 

SAi  1  —  C  C TR^IAKM^CLbCK+uKN^SlNCK ) 

3  A  I  2  =  C  G  T  E  *  (  A  K  M  *  C  C  S  a-  t +  b  K  N  *  3  I N  3  E  J 
XTEMP=X i J ) 

Y  J  E  M  p  =  Y  (  j  ) 

C  t  N = 1 • / (  ( 1  +  S  A  I 1*^31  * (i  +  oAIE^^Ei ) 
PPAKi=LEN*li-SAIi*;>AI2J 
SPART=CEN!M  b A  Il  +  SAIEl 
X  (  J  )  =  P  l  A  K  T  *  X  T  t  M  P  -  3  P  A  rs  T  *  Y  T  c  H  P 
Y ( J ) =FPART  *YT EMP+3PART  *XT  EMP 


MULTIPLY  WITH  THE  *  INCLINATION  FACT  UR*  uut  TC  THc  kCcKg  AN  U  Trie 
E ART  h 1 b  MAGNETIC  F  1 1  L D • 

X  I  j  }-X l  J  J  *3  ICS  I 
Yi  J)=Yl J)*SlCSI 


* 


' 


*  ' 

‘ 


,.i  ■:  .  M>  ■  'j  •  :i 


on  no. 


H-6 


121  CCMIMJt 

3  e  T  L  •  C  •  CF  k  t  A  L  FAR!  T  C  Z t ft U 

xtn-c.c 


ir»  K  I  1  b  {  6  »  4  6  1 

call  «K1T  (X»Ni\»NM\) 
h  R 1 rb(t»46) 

LAlL  WkITlYil\f\»M\M 
J  =  G 

CC  230  J3=1,NGPTS 
J  =  J+  1 

C  k  t  P  L  A  L  b  F  L  C  k  I  E  R  CGEFFIlIcNTa  bY  COMPLEX  uCNJUuAT  L 

F  =  Y  ( Ji 
Y  l  J  1 =  -F 
230  Cli\T  INGE 

CAlL  i.£PUlSii\CPrS) 

LAll  AKMCPTli\fXjY#3) 

J  =  0 

CC  3  3  C  J4=lfNCPIS 
J  =  J+  1 

C  IAisL  C u iv P L b A  GGNjcoAft* 

G  G  ~  Y  (  J  ) 

YU) =-oG 
330  CLiN  r  I  l\L  c 
j  =  0 

cc  a  c  c  j!3=i ,,NCpr s 

j  =  j  +  i 

AU)=XU)/FLCAr INGPT8) 

Y (j ) = Y (  Ji/FLbATiNCPTG) 

40 C  COM  I  NOE 

RR i T  b I b  >  46 ) 

L  A  l  L  h  K 1  T  (  X  ,  N  i\  ,  N  l\  i\  ) 

X  R  1  T  E  (  6  »  4  6  1 

CAlL  Aki  T  1  Y  » (SN  ,  NNi\  ) 

C  R  E  3  E  T  N  N  A N U  MSN  •  A  is  b  PRINT  I  h  t  3  I A  c  L>  F  The  PINAL 

C 

c 

pRlTt(b»31b) 

pHiTtU,bl?) 

IftRITh  1  6  »  320 ) 

XHITl  (  6  »  3  2  3  ) 
i\i\  =  ( NN  +  2  )  / 2 
ISNiS=lM\(v+2)/2 
LG  7  I  -  1  f  i\  l\ 

C  u  8  J  =  1 1 N  IS  N 

X  1 1  1  »  J  j  =  x  l  (2*NN-U*l  i-l)U) 

C 

b  CGi\TlNLb 
7  CC NT  INGE 

CALL  PLOT  EK  I  X  1  »  NfS  } 
lC  21  1 = 1 1 IS  N 


R  E  3UL  T  3 • 


. 


. 


■ 


*riITclc».3fc!) 
hk  i  T  c ( 7  »  33 ) 

CUM  INUt 
h  a  I  T  E  l  g  >  5 C 


(  >1  (  I  »  J  )  ,  j  =  l  f  NfvN  ) 

1  X  i  l  I  i  j  )  t  J  =  I  » N  N  i\  ) 


MUP 

tkC 


-  • 


H-8 


SLdRCcTilSt  PLCTtK(2fM\) 

L  I  M  l  l\  o  l  L  i\  A  l  6  C  )  ,  Y  (  6  G  )  »  Z  {  O  O  >cOi  »irtUKK(lCQw) 
CAi_L  PLCTSlrtCKKllj  ,  4  G  C  0  ) 

CC  i  1=1, Nl\ 

Lu  2  J=i,M\ 

X ( J) =4  .C  +  J 
Y ( J) =26 .0-  i 

IF ( Y ( J )  .LT  .1 .G)  CL  IC  11 
X l J ) =44  .  C  + J 
Y ( j ) =54 • G-  I 
11  CuMlMJt 

Xl=X(J)-0.l6 

V1=Y(J)+U.l 

CALL  ,}Yi’/bLL{XlJ)  ,  Y  i  J  )  ,C»0j}j*tjG*Gi~l) 

L  A*_L  f\UivL>£:RiXl,YlfQ.i,^iI,J)  ,  u  •  Q  >  ~  i  ) 

2  L  C  i\  r  I N  C  t 
i  Lui\riKut 

lAlL  .  F  Lul  (4C»Q,l»0,— 3^ 

CALL  FLuT{0*C,C»C|SS9) 

H fc  i  CfR 
LNC 


* 


■ 


■ 


5Ld^LUfii\t  ZtHu(AfNLprS) 
i>cTd  T  h  £  V  E  C  T  C  K  I L  Z  c  R  C 
h£A£  A ( 1 J  ) 

£L  i  J  =  1  » I'i uH  I  d 
X ( J  J  =C  .  0 
CLiNT  I  IS  U  £ 

H  £  T  £  K  l\ 

ENZ 


y  ■  ..  • ..« 


H-10 


SLdRCLI  iNE  irvKlT(^Xfi\K»M\l\J 
C  1 U  PRINT  UoT  The  k  E  3  6  L  I S 

REAL  A  X  l  1 0  ) 

36  P  C  R  N  A  T ( lX»i0tl6«4J 
4b  PCRiXATllHJJ 
K  ■=  1 
L  =  J 

L  C  1  P  =  i  ,  N  N 
L  =  i-  +  N  i\  N 

RKiTEi6»Jo)  {  A  X  l  J  1  »  J  =  i\  »  L  J 
Ir.R  i  T  t  (  o  * 45  ) 

K  =  L  +  1 

1  CLiisriNUh 
R  E  I  U  R  i\ 
tNu 


. 


. 
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Computation  of  cross-power  and  coherence  function 

Coherence  function  is  obtained  by  using  equation  (4.3) 
described  in  Chapter  IV,  i.e. 


CohZ 


O' 


„ (k  ,k  ) 

Zrp  x  ’  y 


P7  „  (k  ,k  )  2 

Z0>ZT  x’  y' 


P„  (k  , k  ]  P_  (k  ,k  ) 

ZQ  x>  y'  ZT'  x’  y 1 


(1-1) 


The  cross-correlation  between  the  two  data  sets  Zq  and 
provides  the  raw  cross-power  spectra.  The  cross-correlation 
is  given  by 


C 


+  i  q(kx,ky) 


(1-2) 


where 


c(k 

x 

q  (k 
^  x 


k  ) 

y 

k  ) 

y 


is  known  as  co-spectrum  and 
is  the  quadrature  spectrum 


The  raw  cross-power  spectra 


P  (k  ,k  )  is  given  by 

i  a  y 


P  (k  ,k  )  =  /  Tc2(k  ,k  )  +  q2(k  ,k  )}  . (1-3) 

rxsy  /  1  xJy  ^vx9yJ 

The  convolution  of  equation  (1-3)  with  the  two-dimensional 
Hamming  window  provides  the  smooth  cross-power  spectra 


■ 


•  ’ 


/ 
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FORTRAN  IV 
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PROGRAM  TO  CALCULATE  CO-SPECTRUM,  QUADRATURE  SPECTRUM  AND 
COHERENCE  FUNCTION  COEFFICIENTS. 

N4  ...  Size  of  the  square  data  matrix 

LF  ...  Size  of  the  two-dimensional  window 

N  ( 1 )  =  N4 

N(2)  =  N4  For  a  square  matrix 
N(3)  =  0 


NTAO 

DELT 

A(N4,N4 )  ... 
B(N4 ,N4 )  ... 
F(LF,LF)  ... 


Number  of  lags  considered.  Normally  taken 
max.  lags  which  is  equal  to  N(l)  or  N(2) 

The  digital  spacing  of  the  data 
To  store  one  set  of  digitized  field  data 
To  store  second  set  of  digitized  field  data 
To  store  filter  coefficients  of  two-dimensional 
window 


READ  IN  THE  FOLLOWING  PARAMETERS 


1. 

N4,LF 

according 

to 

format(5X,4i5) 

2. 

N(l),N(2),N(3) 

according 

to 

FORMAT(5X,4l5) 

3. 

NTAO 

according 

to 

F0RMAT(5X,4I5) 

4. 

DELT 

according 

to 

FORMAT (5X,F10. 6) 

5. 

A(N4 ,N4 ) 

according 

to 

F0RMAT(1X,6E11.4) 

6. 

B(N4 ,N4 ) 

according 

to 

F0RMAT(1X,6E11.4) 

7. 

F(LF,LF) 

according 

to 

FORMAT (IX, 6E11 . 4 ) 

A, 

l 


>  . 


■ 


. 

1  a«B  jj  ^  1  '  ®  ,r:* 


. 


- 


? 


. 


o  o  r>  o  r~.  o  o  n  o  r>  r-i  r  r;  c  r  c-,  c~,  r  r  n  f ^  r>  o  r~>  o  o  o 
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0  I  XU  l  I  MENS  IGNaL  PCaEK  jFtCT  RA  mND  LuHEkcNCY  I  fc o  f  • 

C 

C  T  H.  i  u  PKGoKAM  OBTAINS  Tht  T  hu~C  I  M  bi\i>  I  uNAL  AUlG~  ANU  eK  G  b  j-P^h  cK 

C  b  P  E  G  T  R  A  u  F  THl  r  r<  G  o  I  V  L  N  G  A  T  A  u  c  T  $  « 

C 

KA/t  bPEGTRAG  EbTiMAftG  A  i'.  E  SMCUTHEG  BY  U*>Ii\G  A  TkG  u  1  Mi.i'*  a  I  UN  AG 
HAMMING  W 1 1\  U  U  W  IN  T  h  E  FK  t  wUENG  Y  GCMA1N  • 


Tht  PROGRAM  M^RtS  Got  OF  THc  T «U”D I  MENS  1 GNA L  FOURIER  T  KANSFGRrtS  » 
BAoEC  uN  THE  ALoCRiTHM  GF  GUGU  1 19t?o )  AS  MGuifltG  BY  CUiiG  fcY  — T  uKEY 
(196c)  ANG  GENTLEMAN-SANjl  1 1 9  6  o  ) 

FCR  C  R  0  S  S—  P  U  n  E  R t  F  i  R  S  T  S  c  T  UF  b  A  T  A  I  b  K  E  A  L)  IN  *  jY  1  V  E  0  f  G  i\ 

/« h  I  C  h  CONSISTS  uF  bite  Ml)  *l\ll  2)  ,  ANG  T  H  c  A  i  V  h  w  H  i  G  n  if  I  S 
TO  O  E  uLKRt-LAT^b  1  G  EN  1  EKfcu  il\  v  E  C  T  G  K  1  u  Y  *  ishlcrt  i  A  cF  i  He  S  a  i  i  E 
SIZE  Ab  •  BY  ’ 


j\(J*K,G) 


❖  V 


ARRAY  uF  UAl  A  I  6  T  W  G—  u  i  M  E  N  b  I  G  A  m  l  rt  i  J  h  if  tc 


b  i 


N  4  $ #  *  SIZE  LF  Tht  u  A I  A  MATRIX 

C  Ei.  T  A  £  v  f  H  t  G  I G I  T  I L I N  u  I  NT  ERVAl  IN  MILES 


N  up  T  b 


NUMBcK  Gh  u  A  T  A  P  u  I N  T  S  (G^fO-Mli^Nlbi 


N  TAG 


L  F  .  • 

I  S  b  •  • 


***  NUMBER  UF  L  AGS  1  Fi A T  ALSG  M  c  A  N  S  T n f  r> c  A U 0 

ili  IVI A  i\  Y  Z  L  K  G  S  •  m  a  I  i'iU  K  L  A  u  Cj  ^  A  n  I'C  r.  v<  u  a  l  i  u 
The  J  I  MENS  I  UN  N  (  i  )  G R  N  i  2  )  L  F  j  hfc  uA  4  A  P  u  i  i\  i  b 
REAl  I  i\  • 

biZE  Cr  The  TxC  G  I  M  c  N  S  i  G  N  X  L  FILTER* 
rtRiTES  REAL  A  N  G  I M  a  G  I  N  A  K  Y  CGErFiGiERTS  u  F  i  he 

I«G  SeTS  GF  uaiTA. 


C 

G 

C 

C 

C 


7 

b 

IC 

2C 

29 

3C 


L I  Me  NS  I  CU  AC2d»2o)  rbi  j  2o  )  fG(2c»2t>)  »Ll2tj2of  jc.uri(26  ko)  t  F  1  ^  t  s> )  » 
iBY  l  3Guu  )  » OY i 3lGc  ) 

ANY  CFiANGt  GF  l  I M £ iv S  f  G N b  IN  THE  GGMMGN  GAkgS  ALSG  GutS  IN  Trie 

SGBKGgT  INE  1  GROSS'#  IN  SobRGGT  lisE  'l.RuSg'  uARU  I  u  i|Vie  —  3  OO-w  nGULG 

AloC  NEEu  TG  cc  GHANGtL. 

CGMMGN  A A  (3QGC)  ,  LA  l  3GG J  )  »  S ( 3G0G  )  ?  A l 3C0G ) t Y i 30 JO f 

CGMMCN  GELT 

CGMMGN  N ( 3  f  »  i  b  S 

COMMON  A  N  *  N  N  N  »  N  l  F  T  A  ,  f\  »  A  u 

REAL  AAjBY  $ C  A »  G  Y ?  S  » / »  Y  »  L  t L  T 

I N  T  E  G  t  K  N  i  N  fs  t  N  N  N  »  N  G  P  T  S  »  N  T  A  L 

FtRMATf  *+  o  X  »  *  GkG  S  S„  C  L  R  K  t  L  A 1  i  ON  GF  fhE  INPUT  GAT  A*  i 

FORMAT l 1 hr ,4Sx ,3Sl ) 

FCkMAT  t5X»^i3) 

FGRMZT  t  5 X  »  F 1 C • 6 ) 

FORMAT ( 5X , l 5  #2F1C  .5  ) 

FORMAT t lx, At  16. d  ) 


* 


' 


,  * 


( • .  , 


35  FCRMAT11X,6£11.4) 

36  FCRR AT ( IX, 10E 13 . 4 ) 

45  FCRNATQHJJ 

4 L  FcRRAT  l  lhli 
50  FCR>V  ATI  lhT,25X,6C(lh*n 
d0 1  FORMAT  llpll  ,fcQX,  •  INPUT  OaTA'  j 
6  C  2  FCRMATllHTicGXjiCtlFi^J) 
oG3  FORMAT  (6CXf,j/’RPiC  R  A  T  i  L  '  ) 

60 5  FuRMATIdOXi'CChcRENCl  FUNCTION  COEFFICIENTS*) 

REAl{5,10)  N4,lF»ISS 
RLAC(5,10)  {  N  l  J  )  t  J-=i  »3  ) 

R t AO  l  5 ,  IQ )  N  T  AC 
R t AO ( 5  t  20 )  UeLT 
NuPT  S  =  J\  l  1  )*M  2  ) 

NN  =  N(  1) 

NNI\  =  M  2  ) 

C 

u  REAL  IN  THEoReTICALCY  CALuULATEO  DATA, 

CC  1  I  =  1 , N4 

R  E  A  0  {  5 , 3  3  )  lA(IiJJ»J=i»N4} 

1  CONTINUE 

OG  13  1  =  1,  N4 
OC  13  J= 1 , N  4 

A  (  I  ,  j  )  =  A  l  i  i j ) / ( C  .  6o  7  E“G7 ) 

13  CONTINUE 

C  REAL  IN  CuSERVeO  MAGNETIC  FleLO  *ReOLICeO  TO  i  He  POLE5. 

OC  2  1=1, N4 

R  E AC ( 5 , J U )  (d(  I  ,  J  )  ,  J= 1 , N4 ) 

2  CCN  TINGE 

C  RE AO  IN  f wC-U  I  MENS ILNAL  FILTcR  CuEFFIClENTS. 

LC  3  1  =  1,  LF 

R  E AO { 5 , 3  5  )  (PlI  ,  J)  ,  J=1,LFJ 

3  CONTINUE 
C 

c 

C  INITIALLY  we  TRANSFER  THE  OATA  IN  ThE  i  M  a  U .  VECTukS  ’  o  Y  * 

C  FRLM  rthlCH  wt  W  I  L  0  TRANSFER  TO  'AX1  A  N  !>  '  C  X  1  A  E  T  E  R  A  0  0 1  N  o 

C  NECESSARY  ZeRCS  FOR  LRl S3- eCRRELAl I  ON • 

C 

CALL  ZErLIUY  »  NO PT  S  ) 

OAll  TRANSF  (OY  ,A  ,  NN ) 

r 

u 

CALL  ZERO  I  BY , NC  PTS  I 
CALL  TRANSF t a Y , c , NN ) 

c 

C  NCv»  WE  CALCULArE  CRCSS~PCir/ER  B  P  E  L  T  R  A 

c 

Call  CRCSS{qY,GY) 

c 

CC  14  I=1,N4 
OC  14  J=  1 , N4 

C(I , J)=AX( (2*N4)*{ I-l)+J) 

14  CONTINUE 


* 


v 

i  i  m 


■: 


. 


4 
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in  R  I  T  E  l  6 , 4o  > 
mRiT£(u,cC3) 

Yi  R  1  I  £  (  6  ,  H  i?  1 
ir»RlTEl6,45) 

CC  16  1=1, N4 

fcRITc(6,_}6)  (  0  (  I  »  J  )  ,  J  =  1  ,  N  4  ) 

mKITtl  ?  ,35)  (C(i,J)fJ=l,N4) 

hRITtlc>,451 
lc  CCNTiNut 

CAlL  PLUTEKlC»N4J 
C 

CC  4  1=1 ,N4 
CC  4  j=  1 » N  4 

Cil  ,  J  }  =  u  o  R  j  i  A  (  1—  il+Jj^^  +  YI  t2*N4)^ll-I)+JJJ>j:<t^l 

4  CONTINUE 

C 

U  CuAiVCL Vc  ,kA«<  oRCoo-PCmcR  wllh  TinG  —  C  iPiENG  1GNAL  hwrtMINo  .n  1  KUCiw 

C  IN  FREQUENCY  C CM A  IN  TC  ooTAlN  uMLuT  h  UKUGi— PoftER  GPulIka. 

C 

CALL  C  C  N  V  2  L.  ( C  »  r  ,  N  4  »  L  F  j 

f 

■w 

C  Li b T A  I N  S«,uAKt  CF  LRlG^—  F urn  Eft  GfttcT K  A  FUR  CoMPU  1  1  nu  Tr.t  CuficKcNu 

C  F  L  im  C  T  1  Li  N  » 

c 

l 

NT  =  iN4~LF  +  1 

C  C  ( I  ,  J )  I  o  KLULCLL  TL  N  I  5Y  NT  MATRIX  biZfc* 

C  U  6  1=1, NT 
LC  6  J  = 1 » N  T 
C  (  I  ,  U  J  =  C  1  I  »  J  J  V  L.  I  i  »  J  ) 

6  Continue 
nn=nn-ntac 

N  i\N=  N  M\  -  N  TaG 
N ( 1  )=NN 
M2)  =NNN 
N  C  P  T  S=  N  (  i  )  ^  N  {  2  ) 

1 E  o= I  3  5  +  1 

C  TC  CALCULATE  AuTC-bPECTRA  UF  MAGNETIC  LATA. 

CALL  ZERUtCY , N  0  P  T 5 ) 

CAi_L  TKANSF  (  C  Y  ,  A  ,  NN  i 
CALL  itftC  1  b  Y  ,  Nu  PT  3  ) 

CALL  TKAnSP { B Y , A  ,NN ) 

CALL  CRCSS(dY,CY) 

CC  11  I  =  1 »  N 4 
C  C  1  i  J  =  i  ,  N  4 
Cl 1 , Jl =X l { 2*N4 )*  l  i-i j + J  i 
11  CuNTINUt 
C 

C  CONVOLVE  'RArt*  AlTC-PC^ER  w I Th  T  WG-D i MdNS I uNAL  HAMMING  wlNUOw 

C  IN  FRtwUENCY  ouMAIN  TC  CoTAiN  SMCUTH  AbTC-PGinER  3FuCTRm» 

C 

CALL  uCNV  2U(C,F,N4,LF) 

NN  =  NN- N  T AG 
NNN=  MYN-NT  AG 


, 


■ 


*  ■ '  .  -  ■"  . 

- 


\ 


; 


■ 


' 
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Nil) =NN 

M  2  )  =  IN  IN  IN 

IN  C  P  T  5  =  i\  y  i  )  *  i\  1 2  i 

L  TU  CALCULATE  ACTL- oPcCTka  L  F  GKAW7Y  DATA. 

CALL  zEKC  (  L)  Y  7  Nu  P  T  5  J 
CAll.  TKANSF(LY»dvi\N) 

CALL  Ztr^(bYiNuPTS) 

CAlL  TKAK^FlbYfBjNiN) 

CALL  CKl5S(BY,CY) 

Ll  12  I  =  1 » iN 
Cl  1  z  J=l»i\4 

lz  CC!\T  INuE 
C 

l  ClNVLLVE  '  KA»«  '  ALTu~FLrttK  v*  I  T  H  T  wO— ClMEr^o  I  L»r*AL  I  ^  A  Pi  M I  in  l  aIinJU 

C  1JN  PPElUEINLY  ClPIAIM  i  l  U 5  T A  i  i\  C  ft  l  u  T  h  Aii  rL-^L^crs  aPulIAm. 

c 

CAlL  C C IN V  2U{A»F,I\4»LF) 

MN  =  lNi\-iNT  AG 
IN  N  i\  =  MN  i\  - 1\  T  A  L 
Nil)  =  ININ 
N(2J=NKK 
N  C  P  I  S  =  N  (  i  i  *  IN  l  2  ) 

C  Calculate  CChEfttiNLc  p  c  in  c  1 1  c  i\  culFF1CIeaT5» 

0  C  5  1  •=  1 1 N  I 
LL  5  J—  1  y  IN  i 

CuHi  I»J)  =  CiifJ)/(L(  i  »  J  )  *A ( i »  J )  ) 
b  CClNTilNut 

Vi  R I  T  z  1 6 fA6) 

WKlTt(6|6G5) 

V'lRiTtlbjAbJ 

nPlTciibyAb) 

Ll  lb  i— i»iNT 

nHITEtEjjb)  {LLhlI»J)»J— lflNF) 

IftBITEibf-Tb) 

15  ClINTIiNlE 
STlP 
EINl 


. 


o  o  ri  o  o  r  i  n  r>  o  <->  r  n  r  o  o  r>  o  r*>  o  o 
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c 


SUBRGUl I N  t  CRGSg ( b Y » L Y J 

T  ji  i  g  SUbKUCTINE  CAlCLLATEG  P G W t K  G  P  E  C  T  K  A 

ANY  CHANGE  OP  LtRENGlCN  CARL  NlEl  ALSO  A  LHANut  IN  fH£ 
lUiM E-3CCG  CARL. 

C  i  ME  NS  i  ON  o V  (jCCC ) , L Y ( 3000  J 

C  Q  H  M  0  N  Ax  (30Cu)  *  l  X l go 00  )  »  g  ( 3000  j  »  X l 3000  7  »  Y  i  3000  ) 

COMMON  bdJ 
COMMON  N  i  3  7  »  i  3  S 
C C R- M ON  i\N  t  IN N N  » N  0  P  T  g  1 1\  T  A  u 
R  t  AL  AX»oY»oXjLjY*3jXf  i  t  U  c  L  F 
i  N  T  t  u  E  K  N  » N  N  » N  N  N  »NCPl3jNTAC 

F  I R  g  T  in  E  g  E  f  ALL  V  A  L  U  L  3  u  F  TriE  'AX*  ANL  1  C  X  *  —  a  K  K  A  Y  EwUAl.  F  l  Z  E  K  u 


I C  T  M  t=3CUC 

LAlL  ZERO  { AX ,  IlI re ) 

LAcL  ZERO  i  CX , Ioi RE  7 

Thu  RATI^la  ’EY*  ANL  'EY*  AKt  I  IN  Thu  NORTH* tGT  w^AiJRA^Ti » 
pRUM  hHlCh  *u  *iGh  IL  FORM  uAhGc  RIaTRIX  *  AX’  AN  l»  *  u  X 3  «i  TH 
Z  t  K  C  S  i.  N  G TH t R  OCALRANTg 

CL  2  KK—lfNN 
K  =  KK-  1 

R i-K* l NN  +  NT  AC )  +  1 
t*  2  =  X £  i  N  N  +  N  i  Al  )  *  i\  i\ 
lG  2  J - M »  R 2 
R.3=  J-  (  KR'isT  AC  7 
A  X  (  J  7  =  c  Y i M  3 i 
CX  i  J  7=GY (M37 
2  CONTINUE 
NN  =  NN  +  NT  AG 
N  N  N  =  N  N  N  +  i\  T  A  G 
M  i  )^NN 
N  {  2  7  =  NNN 
N  C  P  T  S  =  N l 17  *N I  2) 

TC  u  b  T  A  I  N  FuuRltR  TrAngFlRMS 

CALL  ZERC(BYtNLPJS) 

CALL  ZcRC(g»NCPT37 
CAuL  A  R  M  l)  F  T  i  N  » A  X  » a  Y  »  3  7 
CALL  Zc.RO  {  L  Y  »  NCP  T  S  7 
CALu  ZERO  {  3  » NCPT3  7 
CALL  ARRlFT  l  N  »CX  »  L  Y  » 3 ) 

W  E  CalCCLATE  CRCS3-Pu*EK  ANL  STOKE  REAL  PAKT  IN  X-VECTuK 

ANl  THE  i  M  A  G .  PAKT  ii\  Y-VEuTUR,  THUG  Wt.  uoTAIN  Ckugg  PO’aER  =  X{j7-f- 


J  =  0 


. 


‘ 


. 


• 

■ 
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Dl  8C  nK-  I  »  M\ 

DC  8 C  J J  —  1 » r>i i\ fs 

J  =  j  +  1 

X(j)=AX{J)*CX(J)+bY(J)*UY(J) 
Yij)  =BY(j)*CX{J)-AX(j)*GYiM 
8C  CLNTiNufc 
C 

IF(ISS.Nt.O)  Gl  ID  i 
J-G 

DU  1C  KK= 1 t  NX 
Du  1C  -vi  J  — - 1  » iNi j\ f\ 

J=J+ 1 

A  X  l  J ) *  KT  {  M  (  J  )  ( J  I  ##  <l  j 

LX(  J)=olKT1Cx  (  J  )  **2+DY  l  J  j  **2. ) 
AX ( J ) =*X ( J )/CX l J ) *lfcCS  . 

1C  CUM  IISUE 
1  CUM  IKl£ 

c 

c 

h  C  T  U  h  N 
Ei\u 


. 


■ 


- 


1  SLtsKuOFlNt  F  K  Ai'i  i  lr  (  L  y  ?  a  L  K is  » IN  ) 

L  THMiNftKS  LATA  h  r\  C  ft  ft  A  T  R  i  A  TC  VclFCR. 

L 1ME  INS  I  UnI  uV  (  JO  CO  )  ,  nliHK  (26  ,  Zo  ) 

K=  1 

DC  1  i  =  I »  N 

Ll  1  J  =  1  i  i\ 

L  Y  {  M  =  *»  G  R  K  (  I  f  J  J 
K  =  K+  1 

i  CUMIMiE 
RETURN 
tNL 


. 


' 


• 

' 
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bLURCGTii^c  ClNV  2UIx»F,I\4»lF) 

C  T»\C  C irtENSlUNAL  GCPsVGLL  T  IGi\  PRGoRaM. 

L  I  £  F  5  I  L  l\  X  (  2o  i  to  )  t  F  l  J  »  J]  jlfiUKKi  jtj) 

I  ItR  =  N4-LF  <-1 
LC  1  i  =  l»Il'hK 

LG  1  J= 1 , 1 T  E  K  * 

CL  2  i  1=  1  ,  L F 

Lu  2  Ji-iiLf- 

12=1  1-ii  +  I 1 

j  2—  ( J— 1 i + J  1 

fcCKK (1 i  ,  Ji)  =  X(  1Z.J2J 

2  C  C  f\  T  i  N  U  E 
i G  M=  C  .  G 

LG  3  11=1, LF 
Li.  3  J 1= 1 »  Lh 

S  LM-  3 G M+F  (  1 1 ,  J  L)  *  W i- R  M  1 1 ,  J 1 J 

3  CONTINUE 

A {  I  y  J )  =  3UM 
1  CONTINUE 
R  E  I  U  H  i\ 

ENl) 


. 


V 


SloKluI  I  i\  £  Z  £  H  U  £  X  » u  P  T  b  ) 
S  £  T  i  Thi_  VlCTlK  IC  LtKC 
K  £^G  X ( i o 1 
CC  i  J=lji\L.PTi> 

XlJ)— L»C 
L G i\ T  I KU £ 

P  £  I  G  KN 
£l\L 


'  ■ 
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SLuPulTInE  PLuTEkC/.  *  Ms  j 

L  1 M  L  l\  o  i  C  i4  X  1  2  6 )  »  Y  l  c.  o )  »Z(^.Of2o)  fWorsKllCOO) 
CAlL  PLUT^lrtCPKli)  »  4  G  C  G  ) 

Cb  1  i  =  l,M\ 

L  C  2  J  -  1  » i\  i\ 

X ( J ) =  4  .C  +  J 
V { o ) =28  .b-  i 

Ii-(YU)  .  uT  .  1 .  G  J  GL  TC  ii 
X l J  J -44 . 0  + J 
Y  Co) =54.0-1 

11  CGMIMIt  v 

x 1  —  X  l  J )-0 . 15 
Y 1=  Y ( J ) +G •  1 

Call  SYPeClCXCJ)  »  ( i  J )  »C»G3|^fb’*0»  —  1  ) 

CAi_L  MjMdEK(Al»YifG.i»Zl  1  ,  j  )  ,  G  .  0  f  3  ) 

2  b  G  i\  T  I N  b  E 
1  bCM  INUp 

CAlL  P  Lb  i"  C4b»b#C#G»~  3  ^ 

CAlL  PLbT  (O.C,C.C,9s»S)J 
PE  r G K N 
EX  J 
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S  L d K L'li  T  I  c  rt  K  i  I  (  A  X  i  f\  l\  » l\ Mv  J 
TG  PRIM  UUT  THE  K  u  5  G  L  T  b 
H£>iL  ^a(10J 

36  PLRMATllX»i0tl3»4) 

43  FuRMATilNJ) 

K  =  i 

L=C 

DU  1  P=1  ,l\t\ 

L  =  L  +  M\N 

RKlTE(6»-i6J  1  A  A ( J )  » J  =  K » l i 
*  R i T  c l e  i  4  5  ) 

N  =  L+  i 

1  CUM  INGE 
RE  1 URN 

ct\ij 


. 


' 
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bLokLLl I N  E  n  R  I  i  Z  L  (  a  »  N  ) 

REAL  A { lb t Zb  ) 

3c  f-LKNpTiiA|10t;i3»^) 

43  FLRivA[(iHJj 

Cl  i  l  =  i  ,  N 

hRlTtzlCfic)  (A(i,J),o=i#i\J 
leiril  I  il  {  6  1 4  5  ) 
l  CCl\T  il\Ut 
R  c  T  U  H  i\ 
cf\C 


. 


' 
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i  G  d  K  L  U  1  1 1\  fc  Li~l\JUlY|i\LPJS) 

C  TAKho  The  C  u  H  P  L  c  X  CLKJLuATt  d  K  The  ii'^Ao.  PAkT 

kcAl  v(ioj 

J  -  0 

CG  1  J  1=  1 f  NLP  To 
J  =  J+  1 
h  -  Y ( JT 
Y l J  J  =-h 
1  LLNTINLh 
HE  TLKN 
ENC 


' 


*■ 


. 


